unit1.pas

《Delphi百例》源码?禗elphi百例》源码

unit Unit1;

interface

uses
  {$IFDEF Win32} Windows, ShellAPI, {$ELSE} WinTypes, WinProcs, {$ENDIF}
  Messages, Classes, Forms, Controls, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    A1: TMenuItem;
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

{$IFNDEF Win32}
function ShellAbout(Wnd: HWnd; App, Stuff: PChar; Icon: HIcon): Integer;
  far; external 'shell';
{$ENDIF}

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.A1Click(Sender: TObject);
begin
  ShellAbout(Application.MainForm.Handle,
             '此处写您的软件名称',
             'Copyright (c) 2001-2002'#13'http://www.您的网站.com',
             Application.Icon.Handle);
end;

end.