[DELPHI] zamykanie uruchomionego programu

[lukaszinf]

jaki kod trzeba wstawić aby program sprawdził czy jest uruchomiony np. Program.exe i jeżeli tak to żeby go zamknął

[DarkAndrew]

jak znasz nazwe okna to sprawdzasz kazde hwnd i patrzysz czy nazwa sie zgadza, potem robisz

sendmessage do tego hwnd i jako wiadomosc WM_CLOSE

[Blind]

FindWindow + WM_Close

[lukaszinf]

a mógłbym prosić o jakiś przykład?

[DarkAndrew]

http://msdn.microsoft.com/library/default..../findwindow.asp

http://4programmers.net/Delphi/SendMessage

KODuses Windows; // chyba tego nie jestem pewny

var hWnd : HWND;

hWnd:=findwindow(PChar('TU WSTAW NAZWE OKNA'), PChar('TU WSTAW NAZWE KLASY OKNA));

SendMessage(hWnd, ,WM_CLOSE, 0 , 0);

prosze cie pierwsze linki w guglach

[lukaszinf]

http://msdn.microsoft.com/library/default..../findwindow.asp[/url]

http://4programmers.net/Delphi/SendMessage

KOD

uses Windows; // chyba tego nie jestem pewny

var hWnd : HWND;

hWnd:=findwindow(PChar('TU WSTAW NAZWE OKNA'), PChar('TU WSTAW NAZWE KLASY OKNA));

SendMessage(hWnd, ,WM_CLOSE, 0 , 0);

prosze cie pierwsze linki w guglach

 

tu wstaw nazwe okna czyli program.exe, a tu wstaw nazwę klasy co to jest skąd mgę ją wziąć

[Iskar]

tu wstaw nazwe okna czyli program.exe, a tu wstaw nazwę klasy co to jest skąd mgę ją wziąć

 

Nie no litości, nawet nie raczysz sam czegoś poszukać? Sprawdzić w helpie? Wytłumacz mi to.

[DarkAndrew]

nie no koleś gotowca niemal dostałeś i to z opisem każdej funkcji, naprawde żałosne to się zaczyna robić..... nazwa okna to to co jest na tym niebieskim na górze po lewo od przycisków "minimalizuj maksymalizuj i zamknij" czyli nie PROGRAM.EXE bo to jest nazwa PLIKU a nie OKNA

a jak nie znasz nazwy KLASY to wstaw "nil" i po klopocie, a dalej to sobie radź sam bo już ci wszystko powiedziałem co sie dało

[Firen]

Nr[008] Zamykanie uruchomionego 'pliku'-programu (12 stycznia 2003)

Procedura zamykania programu na podstawie jego lokalizacji na dysku. Nie zamyka programów DOS-owych, działa również w Windowsach 2000 i XP. Do programu należy dołączyć unit TLHelp32.

 

...

var
PHandle, FHandle : THandle;
Process : TProcessEntry32;
N^X[Y[[HHX]U[
554$4U52&6W72ćGu6ŚRŁ6ŚVb&6W72ćWBŁAĄ!ąąA(źąstkich procesów
while Next do
begin
if AnsiLowerCase(Process.szExeFile) = [SJ       NL[LL[^INFVŚ&VvćFĆSŁV&6W72$4U55DU$DRf6R ŃA%)QŃAĄA!ą))9:= Process32Next(FHandle,Process);
end;
CloseHandle(FHandle.

...

 

Chyba tego potrzebujesz wedrowcze Wykopalem to z jakis zabytkowych zasobow.