delphi 调用系统图片查看器

本文整理自网络，侵删。

 
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;

begin
ShellExecute(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取整函数

Delphi xe 获取android 系统版本

Delphi 常用4种对话框

Delphi 提取时间成分

Delphi 调用exitwindows 关闭系统

Delphi 返回程序执行参数的例子

Delphi 处理链接和文件路径结尾\和/

Delphi中使用ixmlhttprequest如何用post方式提交带参

Delphi 闪盘小偷

Delphi 手机app打开一个安卓系统支持的文件，比如 pdf

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 调用系统图片查看器