Bonjour,
Certe, j'ai déja travaillé avec des DLL, mais je connaissais leurs fonctions et donc les appelais de manière dynamique.
exemple :
type
TMyDll = function(username,password,seed,result_6,result_96 :pchar;challengemode : Boolean): boolean ; stdcall;
Handle: THandle;
MyDll: TMyDll;
Dll : PChar;
Dll := Pchar(ExtractFilePath(Application.ExeName)+'\madll.dll');
Handle := LoadLibrary (Dll);
if Handle <> 0 then
begin
try
@MyDll := GetProcAddress(Handle, Pchar('YMSG12_ScriptedMind_Encrypt'));
if @MyDll <> nil then
begin
result := MyDll(pchar(UserName), pchar(PassWord), pchar(ChallengeString), pchar(RString1), pchar(RString2), Mode);
end
else result := false;
Finally
FreeLibrary(Handle); //Assure le déchargement de la dll
end;
/////////////////////////
en revange quand on ne connais pas les fonctions d'une DLL ?
j'aimerais pouvoir la sonder ? c possible ?