E
e意孤行
Unregistered / Unconfirmed
GUEST, unregistred user!
先声明,源代码是某位网友的,我只是把他没完成的保存图标部分加上.但遇到了问题.保存的<br>图标文件丢失了部分颜色信息.请各位帮忙看看.先谢了.下面是源码:<br><br>unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, ExtCtrls, TFlatPanelUnit, TFlatSpeedButtonUnit, ComCtrls,<br> ImgList, Menus, StdCtrls,shellapi;<br><br>type<br> TForm1 = class(TForm)<br> FlatPanel1: TFlatPanel;<br> FlatSpeedButton1: TFlatSpeedButton;<br> FlatSpeedButton2: TFlatSpeedButton;<br> FlatSpeedButton3: TFlatSpeedButton;<br> ListView1: TListView;<br> ImageList1: TImageList;<br> OpenDialog1: TOpenDialog;<br> SaveDialog1: TSaveDialog;<br> Image1: TImage;<br> StatusBar1: TStatusBar;<br> PopupMenu1: TPopupMenu;<br> N1: TMenuItem;<br> Label1: TLabel;<br> procedure FlatSpeedButton3Click(Sender: TObject);<br> procedure FormCreate(Sender: TObject);<br> procedure FlatSpeedButton1Click(Sender: TObject);<br> procedure FlatSpeedButton2Click(Sender: TObject);<br> procedure FormClose(Sender: TObject; var Action: TCloseAction);<br> procedure ListView1SelectItem(Sender: TObject; Item: TListItem;<br> Selected: Boolean);<br> procedure N1Click(Sender: TObject);<br> procedure Label1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>Function Enumresname(hmodule:Hmodule;lptype,lpname
char;lparam:longint):Bool;stdcall;<br><br>var<br> Form1: TForm1;<br> hexe:Hinst;<br> Filename:string;<br> Ficon:Ticon;<br><br>implementation<br><br>{$R *.dfm}<br><br>Function Enumresname(hmodule:Hmodule;lptype,lpnamechar;<br> lparam:longint):Bool;stdcall;<br>var<br> hicon1:hicon;<br> hresource:hrsrc;<br> hmem:hrsrc;<br> lpresourcebyte;<br> listitem:Tlistitem;<br>begin<br> hresource:=findresource(hexe,lpname,RT_ICON);<br> hmem:=loadresource(hexe,hresource);<br> lpresource:=lockresource(hmem);<br> hicon1:=Createiconfromresourceex(lpresource,sizeofresource(hexe,hresource),<br> True,$0030000,32,32,LR_DEFAULTCOLOR);<br> With Form1 do<br> begin<br> Ficon.handle:=hicon1;<br> imagelist1.addicon(ficon);<br> listitem:=listview1.items.add;<br> ListItem.ImageIndex := imagelist1.count - 1;<br> end;<br> result:=True;<br>end;<br><br><br><br>procedure TForm1.FlatSpeedButton3Click(Sender: TObject);<br>begin<br> close;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> Ficon:=Ticon.Create;<br>end;<br><br>procedure TForm1.FlatSpeedButton1Click(Sender: TObject);<br>var flag:integer;<br>begin<br> if OpenDialog1.Execute then<br> begin<br> Filename:=OpenDialog1.FileName ;<br> StatusBar1.simpletext:=filename;<br> OpenDialog1.HistoryList.Add(filename);<br> hexe:=loadlibrary(pchar(filename));<br> if (hExe =0 ) then Showmessage('Could not load exe.');<br> flag:=1;<br> imagelist1.Clear ;<br> listview1.Items.Clear ;<br> Enumresourcenames(hexe,RT_ICON,@enumresname,flag);<br> end;<br>end;<br><br>procedure TForm1.FlatSpeedButton2Click(Sender: TObject);<br>begin<br> if savedialog1.Execute then<br> image1.Picture.Icon.SaveToFile(savedialog1.filename);<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> ficon.free;<br>end;<br><br>procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;<br> Selected: Boolean);<br>var<br> myicon:Ticon;<br>begin<br> if selected then begin<br> flatspeedbutton2.Enabled:=true;<br> myicon:=Ticon.Create;<br> imagelist1.GetIcon(item.ImageIndex,myicon);<br> image1.Picture.Icon.Handle:=myicon.handle;<br> end;<br>end;<br><br>procedure TForm1.N1Click(Sender: TObject);<br>begin<br> listview1.arrange(arDefault)<br>end;<br><br>procedure TForm1.Label1Click(Sender: TObject);<br>begin<br> shellexecute(handle,nil,'mailto:cjpqj@263.net',nil,nil,SW_SHOWNORMAL);<br>end;<br><br>end.
char;lparam:longint):Bool;stdcall;<br><br>var<br> Form1: TForm1;<br> hexe:Hinst;<br> Filename:string;<br> Ficon:Ticon;<br><br>implementation<br><br>{$R *.dfm}<br><br>Function Enumresname(hmodule:Hmodule;lptype,lpnamechar;<br> lparam:longint):Bool;stdcall;<br>var<br> hicon1:hicon;<br> hresource:hrsrc;<br> hmem:hrsrc;<br> lpresourcebyte;<br> listitem:Tlistitem;<br>begin<br> hresource:=findresource(hexe,lpname,RT_ICON);<br> hmem:=loadresource(hexe,hresource);<br> lpresource:=lockresource(hmem);<br> hicon1:=Createiconfromresourceex(lpresource,sizeofresource(hexe,hresource),<br> True,$0030000,32,32,LR_DEFAULTCOLOR);<br> With Form1 do<br> begin<br> Ficon.handle:=hicon1;<br> imagelist1.addicon(ficon);<br> listitem:=listview1.items.add;<br> ListItem.ImageIndex := imagelist1.count - 1;<br> end;<br> result:=True;<br>end;<br><br><br><br>procedure TForm1.FlatSpeedButton3Click(Sender: TObject);<br>begin<br> close;<br>end;<br><br>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> Ficon:=Ticon.Create;<br>end;<br><br>procedure TForm1.FlatSpeedButton1Click(Sender: TObject);<br>var flag:integer;<br>begin<br> if OpenDialog1.Execute then<br> begin<br> Filename:=OpenDialog1.FileName ;<br> StatusBar1.simpletext:=filename;<br> OpenDialog1.HistoryList.Add(filename);<br> hexe:=loadlibrary(pchar(filename));<br> if (hExe =0 ) then Showmessage('Could not load exe.');<br> flag:=1;<br> imagelist1.Clear ;<br> listview1.Items.Clear ;<br> Enumresourcenames(hexe,RT_ICON,@enumresname,flag);<br> end;<br>end;<br><br>procedure TForm1.FlatSpeedButton2Click(Sender: TObject);<br>begin<br> if savedialog1.Execute then<br> image1.Picture.Icon.SaveToFile(savedialog1.filename);<br>end;<br><br>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);<br>begin<br> ficon.free;<br>end;<br><br>procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;<br> Selected: Boolean);<br>var<br> myicon:Ticon;<br>begin<br> if selected then begin<br> flatspeedbutton2.Enabled:=true;<br> myicon:=Ticon.Create;<br> imagelist1.GetIcon(item.ImageIndex,myicon);<br> image1.Picture.Icon.Handle:=myicon.handle;<br> end;<br>end;<br><br>procedure TForm1.N1Click(Sender: TObject);<br>begin<br> listview1.arrange(arDefault)<br>end;<br><br>procedure TForm1.Label1Click(Sender: TObject);<br>begin<br> shellexecute(handle,nil,'mailto:cjpqj@263.net',nil,nil,SW_SHOWNORMAL);<br>end;<br><br>end.