Einzelnen Beitrag anzeigen

Benutzerbild von phreax
phreax

Registriert seit: 1. Mai 2006
Ort: Dresden
147 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: hilfe mit dll datei und englischn treat

  Alt 27. Feb 2007, 19:40
Hallo ghost007,
Das ganz ist so umzusetzen (statische Einbindung der Funktionen mit dynamsich kenn ich mich nicht aus)


NICHT GESTESTET:
Delphi-Quellcode:
//BOOL GetProductString(OUT PVOID Buffer, IN ULONG BufferLength);
function GetProductString(Buffer: PChar; Length: Cardinal): boolean; external 'API.dll';

//zu benuzen:
var Buf: PChar;
begin
GetMem(Buf,255);
if not GetProductString(Buf,255) then showmessage('An error occured')
else showmessage(StrPas(Buf));
FreeMem(Buf);
end;
ich hoffe nun kannst du alle anderen funktionen selbst umsetzen

mfg phreax

EDIT aufräumen (freemem()) vergessen
Und dann war da noch der junge Mann ....
... der unbedingt Schriftsteller werden wollte.
Er wollte Emotionen wecken und die Leute zum weinen bringen.
Sein Traum wurde wahr, er verfasst heute die Fehlermeldungen bei Microsoft!
  Mit Zitat antworten Zitat