czesc. Chciałem zamknąć inny program, ale on jest niewidoczny, widać go tylko jak sę naciśnie CTRL + ALT + DELETE. Użyłaem takiej procedury:
function KillProc(const ClassName:AnsiString):Boolean;
var
hWnd,hProc:THandle;
pid:DWORD;
begin
Result:=False;
hWnd := FindWindow(PCHAR(ClassName),nil);
if IsWindow(hWnd) then begin
GetWindowThreadProcessId(hWnd, @pid);
hproc := OpenProcess(PROCESS_TERMINATE, FALSE, pid);
if hproc<>0 then begin
Result:=TerminateProcess(hProc,0);
if Result then CloseHandle(hProc);
end;
end;
end;
A następnie:
KillProc('nazwa_programu');
I to mi nie działa. Wiecie moze jak zamknąć taki program ?</delphi>