添加引用:ShellAPI单元
- 打开PDF文件
shellexecute(handle, 'open', PChar(filePath), nil, nil, SW_SHOWNORMAL);
- 打开网址
ShellExecute(Application.Handle, nil, 'http://www.iconfont.cn/', nil, nil, SW_SHOWNORMAL);
shellexecute(handle, 'open', PChar(filePath), nil, nil, SW_SHOWNORMAL);
ShellExecute(Application.Handle, nil, 'http://www.iconfont.cn/', nil, nil, SW_SHOWNORMAL);