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

Iskljuci u task menadzeru

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

[ Pregleda: 532 | Odgovora: 1 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

BIG FOOT
SRBIJA

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

ICQ: 203411437
Sajt: serbia.blogzy.com


Profil

icon Iskljuci u task menadzeru23.05.2004. u 12:44

Zelim da kada startujem program (napravljen u delphi-ju) on iskljuci notepad.exe koji je startovan.Da li je moguce i kako?
www.kapiraj.org
23.05.2004. u 12:44 

reiser
Vranje

Član broj: 7895
Poruke: 1885
195.252.85.*



Profil

icon Re: Iskljuci u task menadzeru23.05.2004. u 13:06
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.
23.05.2004. u 13:06 

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

[ Pregleda: 532 | Odgovora: 1 ]

 Postavi temu Odgovori

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