Delphi7 调用 Windows 照片查看器打印对话框

Delphi7 调用 Windows 照片查看器打印对话框.

uses ShellAPI;

var
  strPictureFilePath: string;
begin
  ShellExecute(Handle, 'print', PChar(strPictureFilePath), nil, nil, SW_SHOW);
end;