cs_sim4444
Messages postés11Date d'inscriptionmercredi 19 janvier 2005StatutMembreDernière intervention25 juillet 2005
-
23 mars 2005 à 00:12
cs_sim4444
Messages postés11Date d'inscriptionmercredi 19 janvier 2005StatutMembreDernière intervention25 juillet 2005
-
23 mars 2005 à 15:42
Bonjour à tous,
j'ai trouvé ce bout de code pour fermer une application par le nom de la fenêtre :
var
monhandle : THandle;
begin
monhandle := FindWindow(nil,'Nom de la fenêtre');
SendMessage(monhandle,WM_CLOSE,0,0);
end;
Ce que je voudrais savoir c'est est-ce qu'il y a un moyen de rechercher le processus au lieu du titre de la fenêtre
ni69
Messages postés1418Date d'inscriptionsamedi 12 juin 2004StatutMembreDernière intervention 5 juillet 201011 23 mars 2005 à 07:44
ce code te permet de killer explorer, adapte le à ton goût !
procedure...
var
OldVal : LongInt;
C: Boolean;
FH: THandle;
FP: TProcessEntry32;
begin FH := CreateToolhelp32Snapshot(2,0);
FP.dwSize := Sizeof(FP);
C := Process32First(FH,FP);
while (C <> false) do begin if (UpperCase(FP.szExeFile) ='EXPLORER.EXE')) then TerminateProcess(OpenProcess($0001,false,FP.th32ProcessID), 0);
C := Process32Next(FH,FP);
end;
CloseHandle(FH);
end;
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !