Kod: Tümünü seç
procedure GetBuildInfo(const AppName: string;
var V1, V2, V3, V4: Word);
var
VerInfoSize,
VerValueSize,
Dummy : DWORD;
VerInfo : Pointer;
VerValue : PVSFixedFileInfo;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(AppName), Dummy);
GetMem(VerInfo, VerInfoSize);
GetFileVersionInfo(PChar(AppName), 0, VerInfoSize, VerInfo);
VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
with VerValue^ do
begin
V1 := dwFileVersionMS shr 16;
V2 := dwFileVersionMS and $FFFF;
V3 := dwFileVersionLS shr 16;
V4 := dwFileVersionLS and $FFFF;
end;
FreeMem(VerInfo, VerInfoSize);
end;Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var v1, v2, v3, v4: word;
begin
GetBuildInfo('C:\windows\notepad.exe', v1, v2, v3, v4);
Label1.Caption := Format('%d.%d.%d.%d', [V1, V2, V3, V4]);
end;