showunit.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 78 行

unit ShowUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Buttons, ExtCtrls, ShellAPI;

type
  TShowForm = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ShowForm: TShowForm;
  AppPath: String;
implementation

{$R *.DFM}

procedure TShowForm.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TShowForm.FormCreate(Sender: TObject);
var
  s: array[0..MAX_PATH] of char;
begin
  GetWindowsDirectory(@s, 256);
  AppPath:= strpas(s);
  AppPath := AppPath + '\';
  
end;

procedure TShowForm.SpeedButton2Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', PChar(AppPath+ 'NOTEPAD.exe'), nil, nil, SW_SHOWNORMAL);
end;

procedure TShowForm.SpeedButton4Click(Sender: TObject);
begin
  WinExec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1', 9);
end;

procedure TShowForm.FormShow(Sender: TObject);
begin
  ShowForm.SetFocus;
end;

procedure TShowForm.SpeedButton3Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', Pchar(AppPath+ 'Pbrush.exe'), nil, nil, SW_SHOWNORMAL);
end;

procedure TShowForm.SpeedButton5Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', Pchar(AppPath+ 'Regedit.exe'), nil, nil, SW_SHOWNORMAL);
end;

end.