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!