本文整理自网络,侵删。
uses Windows, ShlObj, ShellAPI;
function GetSpecialPath(CSIDL: word): string; var s: string;begin SetLength(s, MAX_PATH); if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true) then s:=''; Result:=PChar(s);end;
beginShellExecute(0,'open','cmd.exe',Pchar('/c rundll32 "'+GetSpecialPath($26)+'\Windows Photo Viewer\PhotoViewer.dll",ImageView_Fullscreen G:\xxxx\ '+ParamStr(1)),nil,SW_HIDE);
//ShellExecute(0,'open','cmd.exe',Pchar('/c rundll32 "'+GetSpecialPath($26)+'\Windows Photo Viewer\PhotoViewer.dll",ImageView_Fullscreen '+ParamStr(1)),nil,SW_HIDE);end.
相关阅读 >>
Delphi readprocessmemory 输入进程id 输入读取地址
Delphi中使用词霸2005的动态库xdictgrb.dll实现屏幕取词
Delphi 使用webbrowser控件获取含框架的网页的完整html代码
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
更多相关阅读请进入《Delphi》频道 >>