FindWindowRésolu

Question

Bonjour &#224; tous,

j'ai trouv&#233; ce bout de code pour fermer une application par le nom de la fen&#234;tre : 

var
  monhandle : THandle;
begin
  monhandle := FindWindow(nil,'Nom de la fen&#234;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&#234;tre

Merci &#224; l'avance,
sim4444

ni69 · Accepted Answer

ah dsl j'oubliais : ajoute tlHelp32 dans uses... 

j'ai mis une parenth&#232;se de trop dans
    if (UpperCase(FP.szExeFile) ='EXPLORER.EXE')) then 

elle est bien s&#251;r &#224; supprimer 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

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

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !

cs_sim4444 · Answer

Lol il y a tu quelque chose que tu ne sais pas?! 
Merci beaucoup!!
Je t'en reparle...

sim4444
@+

FindWindow

3 réponses

Votre réponse

Discussions similaires