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