LISTEUR ET TUEUR DE PROCESS
deseagle
Messages postés
4
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
18 mars 2007
-
17 mars 2007 à 13:51
deseagle Messages postés 4 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 18 mars 2007 - 17 mars 2007 à 13:51
deseagle Messages postés 4 Date d'inscription jeudi 16 janvier 2003 Statut Membre Dernière intervention 18 mars 2007 - 17 mars 2007 à 13:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21704-listeur-et-tueur-de-process
https://codes-sources.commentcamarche.net/source/21704-listeur-et-tueur-de-process
17 mars 2007 à 13:51
function FindProcessByModuleName(Name: string): THandle; //uses psapi, tlhelp32;
var VI: TOSVersionInfo;
begin
VI.dwOSVersionInfoSize:= SizeOf(VI);
GetVersionEx(VI);
if VI.dwPlatformID=VER_PLATFORM_WIN32_NT then Result:=FindProcessByModuleNameNT(Name)
else Result:=FindProcessByModuleName9x(Name);
end;