u00407.pas

Delphi编程五大妙招源程序

unit U00407;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, LZExpand, ShellAPI,
  WinTypes, WinProcs, Menus;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    procedure User_SysMenu(var msg:twmmenuselect); message wm_syscommand;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec(Pchar('C:\Windows\calc.exe'), SW_NORMAL) ;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  HWndCalculator : HWnd;
begin
  // find the exist calculator window
  HWndCalculator := FindWindow(nil, '计算器'); // close the exist Calculator
  if HWndCalculator <> 0 then
    SendMessage(HWndCalculator, WM_CLOSE, 0, 0);
end;


procedure  TForm1.user_sysmenu(var msg:TWMMENUSELECT);
begin
  if msg.iditem=100 then Label1.Caption := '你已经成功了，真是不可思议'
                    else inherited;     { 作缺省处理,必须调用这一过程}
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  Menutemp : HMENU ;
begin
  MenuTemp := GetSystemMenu(handle,false); //获取系统菜单句柄
  AppendMenu(MenuTemp,MF_SEPARATOR,0,nil);
  AppendMenu(MenuTemp,MF_STRING,100,'测试'); //加入用户菜单
end;

end.