Menu Search

Borland Delphi

How to call a dll function at runtime
procedure TForm1.Button3Click(Sender: TObject);
type
TFunc = function (Adress :Cardinal;Value : integer;Bytelength : integer; Process :string): Boolean;stdcall;
var
dllHandle : cardinal;
Func : TFunc;
//s : String;
b : boolean;
begin
dllHandle := LoadLibrary('lc2mem.dll') ;
if dllHandle <> 0 then
begin
@Func := GetProcAddress(dllHandle, 'setPoke') ;
if Assigned (Func) then
begin
ShowMessage(' found');
b := Func($44BA14,9090,2,'GTA: Vice City'); //call the function
ShowMessage(' found');
end
else
ShowMessage('"getDLLTitle" function not found') ;
FreeLibrary(dllHandle) ;
end
else
begin
ShowMessage('circle.dll not found / not loaded') ;
end;
end;

Liste

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

Index

Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste
Index | List
  • Vorherige
  • Seite #n
  • #n
  • #c
  • Seite #n
  • Nächste

LetzteChance.Org - Links -

PDF/ZIP/Word