Delphi7 调用 Windows 照片查看器打印对话框.
uses ShellAPI; var strPictureFilePath: string; begin ShellExecute(Handle, 'print', PChar(strPictureFilePath), nil, nil, SW_SHOW); end;