Code für Inno-Setup gesucht

[Rued]

Zitat:

Zitat von mkinzler

Ja. Und wenn sie nach {tmp} entpackt werden, werden sie automatisch wieder gelöscht

Klingt nicht schlecht, ich versuche mich `mal. Hab´ erst einmal herzlichen Dank.

Schönes Wochenende wünscht

Rüd

[Codewalker]

InnoSetup kann doch auch Funktionen aus DLLs importieren und GetVolumeInformation sollte sich doch problemlos so importieren lassen (aus der Kernel32.dll. Genaue Infos sind ja in der Windows.pas drin). Benötigte Konstanten kann man da auch schnell deklarieren - dann spart man sich temporäre Programme und diverse Umwege

[Rued]

Zitat:

Zitat von Codewalker

InnoSetup kann doch auch Funktionen aus DLLs importieren und GetVolumeInformation sollte sich doch problemlos so importieren lassen (aus der Kernel32.dll. Genaue Infos sind ja in der Windows.pas drin). Benötigte Konstanten kann man da auch schnell deklarieren - dann spart man sich temporäre Programme und diverse Umwege

Wenn es eine elegantere Methode gibt, würde ich Dich bitten, mir noch etwas zu helfen. In der windows.pas habe ich das gefunden:

Delphi-Quellcode:

function GetVolumeInformation(lpRootPathName: PChar;
  lpVolumeNameBuffer: PChar; nVolumeNameSize: DWORD; lpVolumeSerialNumber: PDWORD;
  var lpMaximumComponentLength, lpFileSystemFlags: DWORD;
  lpFileSystemNameBuffer: PChar; nFileSystemNameSize: DWORD): BOOL; stdcall;
{$EXTERNALSYM GetVolumeInformation}

In meinen Programmen habe ich mit

Delphi-Quellcode:

if GetvolumeInformation(pchar(drive + ':\'), nil, 0, id, dwx, dwy, nil, 0) then result := copy(IntToStr(ID^),1,8)

gearbeitet, da ich nur die ersten acht Ziffern benötige.

Wie komme ich über den Import an den String?

Gruß

Rüd

[edit=mkinzler]Delphi-Tags eingefügt Mfg, mkinzler[/edit]

[Reinhold]

Schau mal hier Deutsches InnoSetup Forum.
Hier findest Du bestimmt eine Lösung.

Gruß Reinhold

[Rued]

Zitat:

Zitat von Reinhold

Schau mal hier Deutsches InnoSetup Forum.
Hier findest Du bestimmt eine Lösung.

Gruß Reinhold

Kenne ich, vergeblich gesucht.

Korrektur: habe jetzt noch einmal spezifisch gesucht, vielleicht geht was...
Gruß

Rüd

[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