学步园

Delphi中调用Windows自带的图片和传真浏览器查看图片，可以旋转图片也可以调用画图程序编辑图像。自己写不出来好的代码，就用系统自带的好了。

unit Unit1;</p> <p>interface</p> <p>uses<br /> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br /> Dialogs, StdCtrls,ShellAPI;</p> <p>type<br /> TForm1 = class(TForm)<br /> Button1: TButton;<br /> Edit1: TEdit;<br /> procedure Button1Click(Sender: TObject);<br /> private<br /> { Private declarations }<br /> public<br /> { Public declarations }<br /> end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.dfm}</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br /> Var<br /> SysDir,StrParm,StrPicPath,StrRundll:array[0..128] of char;<br /> p1,p2:pchar;<br /> begin</p> <p> GetSystemDirectory(SysDir,128);<br /> StrRundll:=SysDir;<br /> strcat(StrRundll,'/rundll32.exe');<br /> // showmessage('获取rundll32路径正常');<br /> StrParm:=SysDir;<br /> Strcat(StrParm,'/shimgvw.dll imageview_fullscreen ');<br /> StrPicPath:='D:/My Document/My Pictures/未命名.bmp';<br /> strcat(StrParm,StrPicPath);</p> <p>// showmessage('获取strparm正常');<br /> ShellExecute(Form1.Handle,nil,pChar(@StrRundll),pChar(@StrParm),nil,SW_SHOWMAXIMIZED);<br /> edit1.Text:=strparm;<br /> end;</p> <p>end.