FindWindow [Résolu]
cs_sim4444
- 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
- Comment récupérer les quatres derniers caractères d'un string ✓ - 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 !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- 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 !
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- 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
@+
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci 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.