السلام عليكم
بحثت عن سورس لغلق برنامج ما في GETIONNAIRE DES TACHES فوجت هذا:
كود :
procedure TForm1.Button1Click(Sender: TObject);
var
MyHandle: THandle;
begin
MyHandle:=FindWindow(nil, 'Delphi Help');
SendMessage(MyHandle, WM_CLOSE, 0, 0);
end;
ولاكن لا يعمل
وعليكم السلام
الكود يعمل بشكل جيد
إنتبه "Delphi Help" هي Caption الخاصة بالنموذج الرئيسي..
أيضا للإستزادة يمكنك إستعمال الدالة TerminateProcess كبديل.
هكذا
PHP كود :
uses
Tlhelp32;
function ProcessIDFromAppname32(appname: string): DWORD;
var
snapshot: THandle;
processEntry: TProcessEntry32;
begin
Result := 0;
appName := UpperCase(appname);
snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if snapshot <> 0 then
try
processEntry.dwSize := Sizeof(processEntry);
if Process32First(snapshot, processEntry) then
repeat
if Pos(appname,
UpperCase(ExtractFilename(
StrPas(processEntry.szExeFile)))) > 0 then
begin
Result := processEntry.th32ProcessID;
Break;
end;
until not Process32Next(snapshot, processEntry);
finally
CloseHandle(snapshot);
end;
end;
// Usage:
var
hProcess: THandle;
PID: DWORD;
begin
PID := ProcessIDFromAppname32('target.exe');
hProcess := OpenProcess(PROCESS_TERMINATE, False, PID);
TerminateProcess(hProcess, 0);
end;
مبدئيا هذا يلبي طلبك.
مع مرعات أن هذا الكود يقوم بغلق أول Process
مبدئيا هذا يلبي طلبك.
مع مرعات أن هذا الكود يقوم بغلق أول Process.
الله يحفظك,,,,,,,,,,,,,,,,,,,,, رائع