Delphi：使用TQuery的SQL储存Memo内容
Delphi树形控件(TreeView)节点间的拖动
2009/04/10 23:16 | by
曾经在写的一个程序里面用到过，今天又用到了，顺便写在这里。
引用
procedure TfrmMain.FormShow(Sender: TObject);
var
BufSize, Len: DWORD;
Buf, Value: PChar;
begin
BufSize := GetFileVersionInfoSize(PChar(Application.ExeName), BufSize);
if BufSize > 0 then
begin
Buf := AllocMem(BufSize);
GetFileVersionInfo(PChar(Application.ExeName), 0, BufSize, Buf);
if VerQueryValue(Buf, PChar('StringFileInfo\080403A8\ProductVersion'), Pointer(Value), Len) then
Self.Caption := Self.Caption + ' ' + Value;
end;
Application.Title := Self.Caption;
end;
var
BufSize, Len: DWORD;
Buf, Value: PChar;
begin
BufSize := GetFileVersionInfoSize(PChar(Application.ExeName), BufSize);
if BufSize > 0 then
begin
Buf := AllocMem(BufSize);
GetFileVersionInfo(PChar(Application.ExeName), 0, BufSize, Buf);
if VerQueryValue(Buf, PChar('StringFileInfo\080403A8\ProductVersion'), Pointer(Value), Len) then
Self.Caption := Self.Caption + ' ' + Value;
end;
Application.Title := Self.Caption;
end;
