[Delphi] - Zamykanie innej aplikacji

Odpowiedz Nowy wątek
2005-07-22 12:00

Rejestracja: 16 lat temu

Ostatnio: 14 lat temu

0

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>


Każdy programista jest kowalem swojego kompilatora.....
...i odwrotnie ;)

Pozostało 580 znaków

2005-07-25 01:52

Rejestracja: 17 lat temu

Ostatnio: 4 lata temu

0
function KillApp(AppName: string):Boolean;
var
  Uchwyt: tHandle;
  Proces: tProcessEntry32;
  Uchwyt2: THandle;
begin
Result:=False;
  Uchwyt := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
  Proces.dwSize := SizeOf(Proces);
  if Integer(Process32First(Uchwyt, Proces)) <> 0 then
    repeat
      if lowercase(Proces.szExeFile) = lowercase(AppName) then
      begin
        Uchwyt2 := OpenProcess(PROCESS_TERMINATE, bool(0), Proces.th32ProcessID);
        Result:=not TerminateProcess(Uchwyt2, 0);
        CloseHandle(Uchwyt2);
      end;
    until Integer(Process32Next(Uchwyt, Proces)) = 0;
  closehandle(Uchwyt);
end;

Pozostało 580 znaków

2006-06-25 21:15

Rejestracja: 13 lat temu

Ostatnio: 13 lat temu

0

Sorry że odgrzeję temat ale mam nieco mały problem z tym drugim kodem.
Chodzi o to co znaczy: tProcessEntry32, CreateToolHelp32SnapShot, TH32CS_SNAPALL, Process32First, Proces.szExeFile, Proces.th32ProcessID, KillProc, i jak sobie z tym poradzić żeby delphi to zaakceptował.

Pozostało 580 znaków

Opi
2006-06-25 21:53
Opi

Rejestracja: 15 lat temu

Ostatnio: 4 miesiące temu

0

Wymagane są unity:

uses TlHelp32, PSApi, ShellApi, ShlObj;

Pozostało 580 znaków

2006-06-26 11:26

Rejestracja: 13 lat temu

Ostatnio: 13 lat temu

0

Dzięki! :) O to mi chodziło!

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0