Discussion :

[yokito]

Hello

J'ai fait un prog delphi qui contient ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReadProcessMemory(Getcurrentprocess, pointer(xx), @MB[0], size, cnt);

Ce prog est lié à une dll qui contient différents fonctions qui ne posent aucun pb. Par contre je voudrais transférer la ligne ci dessus dans la dll. Or GetCurrentProcess ne marche pas pour récupérer le handle du prog. J'ai essayé de le récupérer avec un createFile :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ha_ASK:=CreateFileA(PChar(pg),GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);

pg étant le nom du prog : "Pessai.exe".

Ca ne fonctionne pas. Comment récupérer le handle du prog alors?

[Benoît-M]

Je n'ai pas compris tout ton code. D'ailleurs dans Delphi2 la fonction CreateFileA ne semble pas exister : je sais pas à quoi elle sert...

Mais je te conseille d'utiliser quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CreateFileMapping($FFFFFFFF, nil, PAGE_READWRITE, 0, SizeOf(Mon_Handle), 'Mon Fichier');

et de lire le fichier mappé depuis ta DLL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MaVariable := OpenFileMapping(FILE_MAP_ALL_ACCESS, False, PChar('MonFichier'))

En adaptant ton code, ça devrait marcher...

[yokito]

Ce code me permet, avec quelques précautions (en modifiant avec virtual protect et WriteProcessMemory (APIs W32) de modifier mon code déjà compilé. (Sécurité logicielle interne).

Je vais étudier tes propositions. Merci beaucoup.

Amicalement