هكذا
مبدئيا هذا يلبي طلبك.
مع مرعات أن هذا الكود يقوم بغلق أول Process.
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.
سبحان الله وبحمده سبحان الله العظيم


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)