Code für Inno-Setup gesucht

[Rued]

Brauche doch noch Hilfe:

Im [Code] starte ich mit

Delphi-Quellcode:

function GetVolumeInformation: BOOL;
external 'GetVolumeInformation@files:Kernel32.dll stdcall';

Dann baue ich eine Funktion die auf GetVolumeInformation zugreift, wenn ich das richtig verstehe, also etwa

Delphi-Quellcode:

function FPSeriennummer(FP: string): string;
var
ID: PDWord;
dwx, dwy: DWord;
begin
new(ID);
  If GetVolumeInformation(pchar(FP+ ':\'), nil, 0, id, dwx, dwy, nil, 0)
          then result := copy(IntToStr(ID^),1,8);
end;

Inno kennt PDWord und new nicht und moniert die unpassende Anzahl von Parametern.

Kann mir jemand helfen?

Gruß

Rüd