如何使用ShellExecute(...)? (50分)

  • 主题发起人 主题发起人 wtiebo
  • 开始时间 开始时间
W

wtiebo

Unregistered / Unconfirmed
GUEST, unregistred user!
如何使用ShellExecute(...)? 我在程序中用它时,编译报告出错。
 
ShellExecute(
hwmd, //父窗口句柄
LPCSTR lpszOp;//要执行操作窜的地址 可以为open ,print默认为open
LPCSTR lpszFile;//文件名窜的地址
LPCSTR lpszParams;//执行文件串的地址
LPCSTR lpszDir;//默认目录串的地址
int fsShowCmd;//打开时文件是否显示
);
如果指定文件类型没有联系,和该文件类型中没有与操作的联系,返回31.
其他的具体返回之看help
什么错误?
贴出来!
 
Here is my demo:
Uses
ShellApi;
procedure TForm1.OpenRootDirBtnClick(Sender : TObject)
begin
ShellExecute(handle, 'Open', 'C:/', Nil, Nil, SW_SHOWNORMAL);
end;
 
参见ShellApi.pas,位于/program file/borland/delphi 3
/source/RTL/Win/下。
 
编译时的错误是什么?
 
使用WinExec吧,很好用!
UINT WinExec(
LPCSTR lpCmdLine, // address of command line
UINT uCmdShow // window style for new application
);
 

Shellexecute 很好用,特别是要运行一些有关联的文件,我曾经用它来调用
pcAnyWhere的设置文件来实现数据传送。
FileName:='c:/abc.bmp';
Shellexecute(0,'open',PChar(FileName),'','c:/',SW_SHOWDEFAULT);
 
多人接受答案了。
 
后退
顶部