Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Iskljuci u task menadzeru

[es] :: Pascal / Delphi / Kylix :: Iskljuci u task menadzeru

[ Pregleda: 1709 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

BIG FOOT

Član broj: 2964
Poruke: 449
*.ptt.yu



Profil

icon Iskljuci u task menadzeru23.05.2004. u 12:44 - pre 211 meseci
Zelim da kada startujem program (napravljen u delphi-ju) on iskljuci notepad.exe koji je startovan.Da li je moguce i kako?
 
Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314



+102 Profil

icon Re: Iskljuci u task menadzeru23.05.2004. u 13:06 - pre 211 meseci
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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Iskljuci u task menadzeru

[ Pregleda: 1709 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.