Delphi 调用viewer-Windows10 图像浏览器

本文整理自网络，侵删。

 

uses  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;


procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(0,'open','cmd.exe',Pchar('/c rundll32 "'+GetSpecialPath($26)+'\Windows Photo Viewer\PhotoViewer.dll",ImageView_Fullscreen C:\Users\haokucn\Desktop\QQ图片20191012161522.png'),nil,SW_HIDE);

end;
 

相关阅读 >>

Delphi xe intraweb 程序在iis下的发布详细教程

Delphi 获取中文/数字星期的函数

Delphi调试服务程序的两种方法

Delphi 以bytes为单位获取文件大小

Delphi 禁用tedit右键菜单及复制粘贴

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi控件安装与删除

Delphi webbrowser1 execwb 复制 新建 打开

Delphi 将base64字符串转化为jpeg图片

Delphi中编写无输出函数名的dll文件

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

转载请注明出处：木庄网络博客 » Delphi 调用viewer-Windows10 图像浏览器