Графический интерфейс в aria2c RPC
http://blindage.org/?p=5385
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
77 lines
1.6 KiB
77 lines
1.6 KiB
unit vinfo;
|
|
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, resource, versiontypes, versionresource;
|
|
|
|
type
|
|
{ TVersionInfo }
|
|
|
|
TVersionInfo = class
|
|
private
|
|
FVersResource: TVersionResource;
|
|
function GetFixedInfo: TVersionFixedInfo;
|
|
function GetStringFileInfo: TVersionStringFileInfo;
|
|
function GetVarFileInfo: TVersionVarFileInfo;
|
|
public
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
|
|
procedure Load(Instance: THandle);
|
|
property FixedInfo: TVersionFixedInfo read GetFixedInfo;
|
|
property StringFileInfo: TVersionStringFileInfo read GetStringFileInfo;
|
|
property VarFileInfo: TVersionVarFileInfo read GetVarFileInfo;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TVersionInfo }
|
|
|
|
function TVersionInfo.GetFixedInfo: TVersionFixedInfo;
|
|
begin
|
|
Result := FVersResource.FixedInfo;
|
|
end;
|
|
|
|
function TVersionInfo.GetStringFileInfo: TVersionStringFileInfo;
|
|
begin
|
|
Result := FVersResource.StringFileInfo;
|
|
end;
|
|
|
|
function TVersionInfo.GetVarFileInfo: TVersionVarFileInfo;
|
|
begin
|
|
Result := FVersResource.VarFileInfo;
|
|
end;
|
|
|
|
constructor TVersionInfo.Create;
|
|
begin
|
|
inherited Create;
|
|
FVersResource := TVersionResource.Create;
|
|
end;
|
|
|
|
destructor TVersionInfo.Destroy;
|
|
begin
|
|
FVersResource.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TVersionInfo.Load(Instance: THandle);
|
|
var
|
|
Stream: TResourceStream;
|
|
begin
|
|
Stream := TResourceStream.CreateFromID(Instance, 1, PChar(RT_VERSION));
|
|
try
|
|
FVersResource.SetCustomRawDataStream(Stream);
|
|
// access some property to load from the stream
|
|
FVersResource.FixedInfo;
|
|
// clear the stream
|
|
FVersResource.SetCustomRawDataStream(nil);
|
|
finally
|
|
Stream.Free;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|