mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 22:09:45 +01:00
36 lines
776 B
ObjectPascal
36 lines
776 B
ObjectPascal
program showversion;
|
|
|
|
{$mode fpc}
|
|
{$R showver.res}
|
|
|
|
uses sysutils,fileinfo;
|
|
|
|
Var version : TFileVersionInfo;
|
|
I : longint;
|
|
|
|
begin
|
|
Version:=TFileVErsionInfo.create(Nil);
|
|
Version.FileName:=paramstr(1);
|
|
With Version do
|
|
begin
|
|
if Not FileExists(Paramstr(1)) then
|
|
begin
|
|
Writeln (Format('%s : No such file or directory',[Paramstr(1)]));
|
|
Halt(1);
|
|
end;
|
|
FileName:=Paramstr(1);
|
|
If VersionStrings.Count=0 then
|
|
begin
|
|
Writeln (Format('%s : No version information found.',[paramstr(1)]));
|
|
Halt(2);
|
|
end;
|
|
For i:=0 to VersionStrings.Count-1 do
|
|
Writeln (VersionCategories[I],'=',VersionStrings[i]);
|
|
free;
|
|
end;
|
|
end. $Log$
|
|
end. Revision 1.2 2000-07-13 11:33:04 michael
|
|
end. + removed logs
|
|
end.
|
|
}
|