Imas vise nacina
Code:
procedure KillNotepad;
var
hWindowHandle : HWND;
hprocessID: INTEGER;
processHandle: THandle;
DWResult: DWORD;
begin
hWindowHandle := FindWindow('notepad', nil);
SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0,
SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
if isWindow(hWindowHandle) then
begin
GetWindowThreadProcessID(hWindowHandle, @hprocessID);
if hprocessID <> 0 then
begin
processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION,
False, hprocessID);
if processHandle <> 0 then
begin
TerminateProcess(processHandle, 0);
CloseHandle(ProcessHandle);
end;
end;
end;
end;
Vidi po googleu za vise informacija.