FindWindow [Résolu]

Signaler
Messages postés
11
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2005
 -
cs_sim4444
Messages postés
11
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2005
 -
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

Merci à l'avance,
sim4444
Afficher la suite
A voir également:

3 réponses

Réponse 1 / 3
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
 9
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 !
Réponse 2 / 3
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
 9
ah dsl j'oubliais : ajoute tlHelp32 dans uses...

j'ai mis une parenthèse de trop dans
if (UpperCase(FP.szExeFile) ='EXPLORER.EXE')) then

elle est bien sûr à supprimer


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
Réponse 3 / 3
Messages postés
11
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2005
Lol il y a tu quelque chose que tu ne sais pas?!
Merci beaucoup!!
Je t'en reparle...

sim4444
@+
Répondre Posez votre question