main.pas

TRunDialog 构件封装 Windows 未公开的 API

unit Main;

interface

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

type
  TDemoForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    RunDlg: TRunDialog;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Edit1: TEdit;
    CheckBox2: TCheckBox;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.DFM}

procedure TDemoForm.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TDemoForm.Button1Click(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
RunDlg.Title := Edit1.Text;
end;
if Edit2.Text <> '' then
begin
RunDlg.Description := Edit2.Text;
end;
if Edit3.Text <> '' then
begin
RunDlg.InitialDir := Edit3.Text;
end;
if CheckBox1.Checked = True then
begin
RunDlg.Icon.Assign(Application.Icon);
end;
RunDlg.HideBrowseButton := CheckBox2.Checked;
RunDlg.Execute;
end;

end.