unit1.~pas

《Delphi 7应用编程150例》源码（全）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmMain = class(TForm)
    btnDisable: TButton;
    btnEnable: TButton;
    procedure btnDisableClick(Sender: TObject);
    procedure btnEnableClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnDisableClick(Sender: TObject);
var
    wnd:HWnd;
begin
    wnd:=FindWindow(nil,'计算器');
    if wnd >0 then
    begin
        EnableWindow(wnd,FALSE);
    end;
end;


procedure TfrmMain.btnEnableClick(Sender: TObject);
var
    wnd:HWnd;
begin
    wnd:=FindWindow(nil,'计算器');
    if wnd >0 then
    begin
        EnableWindow(wnd,TRUE);
    end;
end;

end.