注册 登录
编程论坛 Delphi论坛

Delphi 怎么样调出系统运行对话框

wh445306 发布于 2007-12-06 14:22, 1694 次点击
Delphi 怎么样调出系统运行对话框,
 
调运行声明
该函数在Shell32.dll中,是个无名字的函数,调用时要用索引来调用,为 index 61, 在VB中我会,我刚从VB转过来的,对这方面不是很清楚,请高手指定,谢谢,它共有6个参数,不知道是不是像下面这样声明,
Function SHRunFileDlg(hOwner,hIcon:Integer;lpstrDirectory,szTitle,szPrompt:pchar;uFlags:Integer):Integer;external'shell32.dll'index 61;

另外声明后又该如何调用呢,我刚入手,不好意思,用了3年的VB,就是因为HOOK与动态链接库的问题才放弃VB用DELPHI的,
1 回复
#2
provoke2007-12-06 14:52
最经常的用法:先添加对话框到窗体中,调用时就

if OpenDialog1.Execute then
begin
............
end;

这里以打开对话框为例,其他对话框也是类似的用法,如保存对话框,颜色对话框等。

OpenDialog1.Execute 放在 if...then 里,如果点击对话框的“取消”按钮就不执行下面的begin...end 里的代码。
1