自然而然打开一幅JPG图片代码怎么写?就是调用 "windowe图片和传真查看器"直接打开.(100分)

  • 主题发起人 主题发起人 冰力不足
  • 开始时间 开始时间

冰力不足

Unregistered / Unconfirmed
GUEST, unregistred user!
自然而然打开一幅JPG图片代码怎么写?
就是调用 "windowe图片和传真查看器"直接打开指定路径的一幅JPG



//参考:
rundll32.exe C:/WINDOWS/system32/shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"
shimgvw

System

//调用photoshp打开图片:
shellapi.pas
procedure TForm1.Button1Click(Sender: TObject);
begin
shellexecute(0,nil,'photoshp.exe','c:/1.jpg','c:/',SW_SHOW);
end;

//
 
ShellExecute(0, nil, 'rundll32.exe', '"C:/WINDOWS/system32/shimgvw.dll" "c/yourimagefile.jpg"', 'c:/', SW_SHOW);
 
感谢回复 可以我怎么试验不行:

procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(0, nil, 'rundll32.exe', '"C:/WINDOWS/system32/shimgvw.dll" "c/1.jpg"', 'c:/', SW_SHOW);
end;

估计参数还要处理一下 呵呵 小问题难倒大师傅
 
ShellExecute(0, nil, 'rundll32.exe', 'C:/WINDOWS/system32/shimgvw.dll,c/1.jpg', 'c:/', SW_SHOW);
这样呢?
 
还是不行 鼠标动了一下 没有看到图片打开
 
ShellExecute(
0,
'Open',
'rundll32.exe',
'D:/WINDOWS/system32/shimgvw.dll,ImageView_Fullscreen e:/1280_jdsj018.jpg',
nil,
sw_show
);
 
呵呵 还是这着肥羊聪明点 我怎么就没有象到打开IE那样的OPEN
ShellExecute( 0,'Open','rundll32.exe','c:/WINDOWS/system32/shimgvw.dll,ImageView_Fullscreen c:/1.jpg',nil,sw_show);

谢谢2位
 
多人接受答案了。
 
人间要是绑定了用acdsee打开图片呢?

你强制用"windowe图片和传真查看器 那就不是自然而然了。哈哈

自然而然的方法,就是不指定打开所用的程序,由系统自己根据设置决定

用shellexecute。。
 
后退
顶部