本文整理自网络,侵删。
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.
相关阅读 >>
winapi 字符及字符串函数(6): ischaralphanumeric - 是否是个文字(字母或数字)
Delphi stringgrid 实例4 本例功能: 1、给每个单元格赋值 2、调整当前单元格位置:上下左右;
更多相关阅读请进入《Delphi》频道 >>