通用的关于对话框

每当完成一个软件作品的时候，我们需要一个about对话框！

为了省去这样的重复工作，我们有必要制作一个通用的关于对话框！

根据他们的共性，可以分两部分：

一、单位信息

二、程序信息

单位信息：主要为单位名称、单位地址、单位电话、单位E-Mail、单位网址；

程序信息：主要为此程序对计算机硬件需求、计算机软件需求和程序版本。

为了美观，可以在对话框左上方，放一个logo!

整体的窗体布局图，如下图，所示：

在程序实现部分，需要填写打开网址和主程序版本号。

打开网址需要使用WIN32函数ShellExecute；

他的原型为：

HINSTANCE ShellExecute(
  __in_optHWND hwnd,
  __in_optLPCTSTR lpOperation,
  __inLPCTSTR lpFile,
  __in_optLPCTSTR lpParameters,
  __in_optLPCTSTR lpDirectory,
  __inINT nShowCmd
);

我们只要三个参数即可：句柄、网址、打开方式

代码如下：

    ShellExecute(Handle,
		 nil,
		 PChar(Label10.Caption),
		 nil,
		 nil,
		 SW_SHOWNORMAL);

读取程序版本号，需要使用如下函数：

1. GetFileVersionInfo

函数原型：

BOOL WINAPI GetFileVersionInfo(
  __inLPCTSTR lptstrFilename,
  __reservedDWORD dwHandle,
  __inDWORD dwLen,
  __outLPVOID lpData
);

2. VerQueryValue

函数原型：

BOOL WINAPI VerQueryValue(
  __inLPCVOID pBlock,
  __inLPCTSTR lpSubBlock,
  __outLPVOID *lplpBuffer,
  __outPUINT puLen
);

3. GetModuleFileName

DWORD WINAPI GetModuleFileName(
  __in_optHMODULE hModule,
  __outLPTSTR lpFilename,
  __inDWORD nSize
);

具体代码u_about.pas

unit u_about;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, ShellApi;

type
  Tfrm_about = class(TForm)
    mo_about: TMemo;
    Label7: TLabel;
    Label8: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Image1: TImage;
    Label2: TLabel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Label1: TLabel;
    procedure Label10Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    verStr:string;
    function GetCDPFileVersion(FileName: String): String;
    { Public declarations }
  end;

var
  frm_about: Tfrm_about;

implementation

{$R *.dfm}

procedure Tfrm_about.Label10Click(Sender: TObject);
begin
//
    ShellExecute(Handle,
				 nil,
				 PChar(Label10.Caption),
				 nil,
				 nil,
				 SW_SHOWNORMAL);
end;

function Tfrm_about.GetCDPFileVersion(FileName: String): String;
var
  InfoSize, Wnd: DWORD;
  VerBuf: Pointer;
  VerInfo: ^VS_FIXEDFILEINFO;
begin
    Result := '1.0.0.0';
    InfoSize := GetFileVersionInfoSize(PChar(FileName), Wnd);
    if InfoSize<>0 then
    begin
      GetMem(VerBuf, InfoSize);
      try
        if GetFileVersionInfo(PChar(FileName), Wnd, InfoSize, VerBuf) then
        begin
          VerInfo:=nil;
          VerQueryValue(VerBuf, '\', Pointer(VerInfo), Wnd);
          if VerInfo<>nil then
            Result:=Format('%d.%d.%d.%d',
                          [VerInfo^.dwFileVersionMS shr 16,
                          VerInfo^.dwFileVersionMS and $0000ffff,
                          VerInfo^.dwFileVersionLS shr 16,
                          VerInfo^.dwFileVersionLS and $0000ffff]);
        end;
      finally
        FreeMem(VerBuf, InfoSize);
      end;

    end;
end;

procedure Tfrm_about.FormShow(Sender: TObject);
var
  szExePathname: array [0..266] of char;
  hMoudleA: DWORD;
begin
  hMoudleA := GetModuleHandle(nil);
  GetModuleFileName(hMoudleA, szExePathname, MAX_PATH);
  verStr := GetCDPFileVersion(string(szExePathname));
  mo_about.Lines.Append(#13);
  mo_about.Lines.Append('主程序版本号:');
  mo_about.Lines.Add('             ' + verStr);
end;

end.