VERIFICATION D'EXECUTION DU DELPHI "DELPHI32"

Commentaire de CptPingu le 27/08/2006 17:13:17

Ta source est un peu maigre... Je m'attendais à un soft qui se protegerais contre les debuggers, mais on se retrouve avec simplement une recherche de Delphi dans les processus actifs.

De plus, ca ne marche pas chez moi. J'ai WinXP pro SP1, et Delphi 7.0 pro. Ton code me met toujours cette phrase "Delphi et fermer" (en passant on écrit "Delphi est fermé").

Si tu pouvais modifier ta source de facon à ce qu'on sache si l'executable à été lancé normalement ou à travers le debuggeur Delphi, là ca serait effectivement interessant.

Commentaire de qoprek le 28/08/2006 12:37:22

J'ai pas testé mais d'après mes souvenirs je fait comme cela (donc j'écris le code de mémoire, ptet ya des trucs a changer):

Il faut rechercher la classe TAppBuilder et si elle est présente alors rechercher (d'après le handle récupéré) si le texte de la fenêtre associé contient Delphi. On aurait une fonction de ce style, tu peux t'arreter a la recherche de TAppBuilder si tu veux detecter si un EDI Borland est en cours et pas seulement Delphi, maintenant il faut vérifier que pour les produits MS le nom de classe adéquat et ainsi étoffer la fonction pour essayer de détecter un max d'outils de dévpt:

function EDIBorlandEnCours : Boolean;
Var nom : Array[0..31] Of Char;
    h   : THandle;
Begin
  Result := False;
  h := FindWindow('TAppBuilder', Nil);
  If h>0 Then Begin
    GetWindowText(Result,nom,32);
    If AnsiUpperCase(Nom[0]+Nom[1]+Nom[2]+Nom[3]+Nom[4]+Nom[5])='DELPHI' Then Result:=True;
  End;
End;

- Une autre possibilité serait de regarder si le fichier exe de delphi est en cours d'utilisation avec une fonction de ce style:

Function DeterminerSiUtilise(fichier:String):Boolean;
Var HFileRes : HFILE;
Begin
  If FileExists(fichier) Then Begin
    HFileRes:=CreateFile(PChar(fichier),GENERIC_READ Or GENERIC_WRITE,0,Nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
    Result:=(HFileRes=INVALID_HANDLE_VALUE);
    If Not Result Then CloseHandle(HFileRes);
  End Else
    Result:=False;
End;

Mais là cela suppose que tu saches (d'apres la BDR) ou est localisé Delphi sur le disque.


Voila si ca peut aider.