Forum: Library: Dateien / Laufwerke
Delphi
by sakura,
22. Mai 2003
Nachtrag, wer andere Werte auslesen will, kann die folgenden Codezeilen entsprechend anpassen. VerQueryValue(
VersionInfo, PChar(VersionValue + 'InternalName'), InfoPointer,
VersionInfoSize
);
aInternalName := AnsiString(PChar(InfoPointer)); ...:cat:...
Forum: Library: Dateien / Laufwerke
Delphi
by sakura,
22. Mai 2003
Ich habs gerade gebraucht und alten Code von mir hier gefunden. Jetzt kommt der zur Abwechslung auch einmal in die Code Library :mrgreen:
function GetFileInfo(
var aInternalName, aFileVersion: String; FileName: AnsiString
): Boolean;
var
VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD;
VersionInfo, Translation, InfoPointer: Pointer;
VersionValue: AnsiString;
begin