FindWindow [Résolu]
cs_sim4444
- 23 mars 2005 à 15:42
- Messages postés
- 13
- Date d'inscription
- mercredi 19 janvier 2005
- Dernière intervention
- 25 juillet 2005
- Messages postés
- 13
- Date d'inscription
- mercredi 19 janvier 2005
- Dernière intervention
- 25 juillet 2005
A voir également:
- Findwindow delphi
- Delphi findwindow - Meilleures réponses
- Delphi findwindowex - Meilleures réponses
- Delphi sauvegarder la couleur du form - Forum - Delphi / Pascal
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
3 réponses
Meilleure réponse
- Messages postés
- 1529
- Date d'inscription
- samedi 12 juin 2004
- Dernière intervention
- 5 juillet 2010
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 !
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 !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
Meilleure réponse
- Messages postés
- 1529
- Date d'inscription
- samedi 12 juin 2004
- Dernière intervention
- 5 juillet 2010
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 !
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 !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
Meilleure réponse
- Messages postés
- 13
- Date d'inscription
- mercredi 19 janvier 2005
- 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
@+
Merci beaucoup!!
Je t'en reparle...
sim4444
@+
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 88 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.