|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/11 10:21:49 |
标题: |
|
加入我的收藏 |
楼主: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
|
作者: |
yufee (yufee) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/7/11 11:08:54 |
1楼: |
使用Shellexecute即可
----------------------------------------------
-
|
作者: |
|
2004/7/11 11:54:15 |
2楼: |
function ExecuteFile(const FileName, Params, DefaultDir: string; ShowCmd: Integer): THandle; var zFileName, zParams, zDir: array[0..79] of Char; begin Result := ShellExecute(Application.MainForm.Handle, nil, StrPCopy(zFileName, FileName), StrPCopy(zParams, Params), StrPCopy(zDir, DefaultDir), ShowCmd); end;
function ExecuteURL(UrlString:String): boolean; begin result := (ExecuteFile(URLString, '', '', SW_SHOWNOACTIVATE) > 32); end;
执行 ExecuteURL 即可,成功则返回true,此函数可以打开任何资源,如各种类型的文件、网址等。
----------------------------------------------
www.acreport.com
|
作者: |
|
2004/7/11 12:33:33 |
3楼: |
…… 被禁用帐号,帖子内容自动屏蔽! ……
----------------------------------------------
|
|