关于shellexecute的问题(50分)

  • 主题发起人 主题发起人 bworth
  • 开始时间 开始时间
B

bworth

Unregistered / Unconfirmed
GUEST, unregistred user!
; SHELLEXECUTE,可是我今天看了很长时间帮助,还是没明白怎么调用.
起初,我在implementation里对一个BUTTON写事件:(存取路径和文章名是表里的两个字段)
shellexecute(handle,'open',fieldbyname('存取路径'+'文章名'),null,null,sw_shownormal);
这是照着帮助格式写的(也不知道对不对),可是我不知道怎么在接口部分怎么声明,帮助说:参数只有String,返回值类型也没说明白(或者是我不理解),
我已经没几分了,所以这次价值分比较低,对不住了!谢谢!
 
ShellExecute的函数声明在ShellAPI.pas中,你只要
use ShellAPI;
即可,不必自己写声明。
 
同时注意参数必须为PChar,pchar(fieldbyname('存取路径'+'文章名'))
 
对,Uses ShellAPI,不需要自己申明,参数最好用PChar,返回值是HInstance,也就是你运行的
程序的句柄或是DDE服务器的句柄.
例如:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,PChar('Open'),PChar('e:/test.doc'),nil,PChar('E:'),SW_SHOW)
end;
 
还不明白吗?
 
多人接受答案了。
 
后退
顶部