ich würde gerne von einer EXE-Datei alle Detailinformation auslesen, wie beispielsweise
- Beschreibung
- Dateiversion
- Produktname
- Produktversion
Grundwissen in Pascal ist vorhanden.
Danke für Eure Hilfe!
Gruß
OLLI
Mathias hat geschrieben:Vielleicht hilft die dies weiter : http://wiki.freepascal.org/Show_Applica ... nd_Company
Code: Alles auswählen
Projekt GerVersionInfo hat Exception-Klasse >EResourceNotFoundException< ausgelöst mit der Meldung:
Can not find resource: Type = 1, Name = 12, Lang ID = 0000
Code: Alles auswählen
FileVerInfo.ReadFileInfo;
Code: Alles auswählen
procedure TfrmMainForm.GetVersionInfo;
var
FileVerInfo: TFileVersionInfo;
AppFileName: String;
begin
FileVerInfo := TFileVersionInfo.Create(nil);
// Get the file name (including the file path) from the edit-field
AppFileName := edtFileName.Text;
// Check if the file name is empty
if AppFileName = '' then
begin
ShowMessage('File Name is empty');
exit;
end;
// Check if the file exists
if not (FileExists(AppFileName)) then
begin
ShowMessage('File Not Found:' + #13 + AppFileName);
exit;
end;
mmoVersionInfo.Lines.Clear;
try
FileVerInfo.FileName := AppFileName;
FileVerInfo.ReadFileInfo;
OLLI_S hat geschrieben:Allerdings bekomme ich beim Auslesen der Versionsinformationen bei manchen Anwendungen Fehlermeldungen.
Beim System Explorer (C:\Program Files (x86)\System Explorer\SystemExplorer.exe) bekomme ich folgende Meldung:Code: Alles auswählen
Projekt GerVersionInfo hat Exception-Klasse >EResourceNotFoundException< ausgelöst mit der Meldung:
Can not find resource: Type = 1, Name = 12, Lang ID = 0000
m.fuchs hat geschrieben:Enthält dieses Programm denn überhaupt Versionsinformationen?
Code: Alles auswählen
FileVerInfo.ReadFileInfo;