B
Bahl
Unregistered / Unconfirmed
GUEST, unregistred user!
调用Windows系统对话框
在Delphi中大家都会调用一些如打开文件，保存文件之类的最常用的对话框。但如何调用一些像关闭系统对话框这样不太常用的对话框呢？本人经过一番研究，小有收获。
1 关闭系统对话框：
procedure ExitWindowsDialog(Handle: THandle); stdcall; external 'shell32.dll' index 60; //API 声明
使用：
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsDialog(Handle);
end;
2 重启动系统对话框：
function RestartWindowsDialog(Handle: THandle; Reason: PChar; Flags: Integer): Integer; stdcall; external 'shell32.dll' index 59;
使用：
procedure TForm1.Button2Click(Sender: TObject);
begin
RestartWindowsDialog(Handle, PCHAR('这个程序'), EW_RESTARTWINDOWS);
end;
3 选择图标对话框：
function PickIconDialog(Handle:THandle; FileName
Char; FileNameSize:integer;var IconIndex:integer):Boolean; stdcall; external 'shell32.dll' index 62;
使用：
procedure TForm1.Button3Click(Sender: TObject);
var
IconIndex: Integer;
begin
if PickIconDialog(Handle, PChar('shell32.dll'), Length('shell32.dll'), IconIndex) then
ShowMessage('Selecciono ' + IntTOStr(IconIndex));
end;
4 运行对话框：
procedure RunDialog(Handle: THandle; Icon: HIcon; Directory: PChar; Title: PChar; Description: PChar; Flags: Integer); stdcall; external 'shell32.dll' index 61;
使用：
procedure TForm1.Button4Click(Sender: TObject);
begin
RunDialog(Handle, Icon.Handle, PCHAR('C:'), PCHAR('SELECT THE FILE YOU WANT TO RUN'),
PCHAR(''), 0);
end;
我只找出了调用四种系统对话框的方法，如果诸位还有调用其他的系统对话框的方法，欢迎跟贴。
在Delphi中大家都会调用一些如打开文件，保存文件之类的最常用的对话框。但如何调用一些像关闭系统对话框这样不太常用的对话框呢？本人经过一番研究，小有收获。
1 关闭系统对话框：
procedure ExitWindowsDialog(Handle: THandle); stdcall; external 'shell32.dll' index 60; //API 声明
使用：
procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsDialog(Handle);
end;
2 重启动系统对话框：
function RestartWindowsDialog(Handle: THandle; Reason: PChar; Flags: Integer): Integer; stdcall; external 'shell32.dll' index 59;
使用：
procedure TForm1.Button2Click(Sender: TObject);
begin
RestartWindowsDialog(Handle, PCHAR('这个程序'), EW_RESTARTWINDOWS);
end;
3 选择图标对话框：
function PickIconDialog(Handle:THandle; FileName
Char; FileNameSize:integer;var IconIndex:integer):Boolean; stdcall; external 'shell32.dll' index 62; 使用：
procedure TForm1.Button3Click(Sender: TObject);
var
IconIndex: Integer;
begin
if PickIconDialog(Handle, PChar('shell32.dll'), Length('shell32.dll'), IconIndex) then
ShowMessage('Selecciono ' + IntTOStr(IconIndex));
end;
4 运行对话框：
procedure RunDialog(Handle: THandle; Icon: HIcon; Directory: PChar; Title: PChar; Description: PChar; Flags: Integer); stdcall; external 'shell32.dll' index 61;
使用：
procedure TForm1.Button4Click(Sender: TObject);
begin
RunDialog(Handle, Icon.Handle, PCHAR('C:'), PCHAR('SELECT THE FILE YOU WANT TO RUN'),
PCHAR(''), 0);
end;
我只找出了调用四种系统对话框的方法，如果诸位还有调用其他的系统对话框的方法，欢迎跟贴。
WORD;stdcall;