Ofcourse theres a difrence
Delphi-Quellcode:
var
Form1: TForm1;
ring: THandle;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
load;
end;
procedure tform1.Load;
VAR
Pfad: AnsiString;
Intalize: procedure(InitializeDll: Pointer); stdcall;
begin
Pfad := ExtractFilePath(application.ExeName) + 'WinRing0x64.DLL';
if FileExists(Pfad) then
begin
form1.Color:=clgreen;
ring := LoadLibrary(PChar(Pfad));
if ring = 0 then
Intalize:= GetProcAddress(ring,'InitializeDll');
if Assigned(Intalize) then
showmessage('intalized');
showmessage('loaded');
end;
end;
Like this?