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.