學習使用資源文件[2] - Ico
學習使用資源文件[2] - Ico 現在要做一個攜帶兩個圖標的資源文件, 並調用的例子. 1、首先建新工程, 保存, 注意這次我們不刪除 {$R *.res} 2、複製兩個 ico 文件到工程目錄, 譬如文件是: IcoFile_1.ico、IcoFile_2.ico 3、建立文本文件輸入: ico1 ICON IcoFile_1.ico ico2 ICON IcoFile_2.ico 然後保存爲: MyRes.rc, 並 Add 到工程中, 如圖: 4、此時的工程文件會自動插入: {$R 'MyRes.res' 'MyRes.rc'} 5、添加四個按鈕, 實現代碼如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //使用資源中的第一個自定義圖標 procedure TForm1.Button1Click(Sender: TObject); begin Application.Icon.Handle := LoadIcon(HInstance, 'ico1'); { HInstance 當前程序實例的句柄, 調用資源文件一定要用到它; ico1 是資源文件的標識符; LoadIcon 是個 API 函數, 專門用於調用資源中的 ico 文件, 它返回的是指定 ico 文件的句柄. } end; //使用資源中的第二個自定義圖標 procedure TForm1.Button2Click(Sender: TObject); begin Application.Icon.Handle := LoadIcon(HInstance, 'ico2'); end; //使用資源中默認的程序圖標 procedure TForm1.Button3Click(Sender: TObject); begin Application.Icon.Handle := LoadIcon(HInstance, 'MainIcon'); end; //不使用圖標(會顯示 Windows 系統的默認圖標) procedure TForm1.Button4Click(Sender: TObject); begin Application.Icon := nil; end; end. -------------------------------------------------------------------------------- //效果圖: -------------------------------------------------------------------------------- 註釋: 1、此時的 MyRes.rc 被編譯成了 MyRes.res; 2、此時的 IcoFile_1.ico、IcoFile_2.ico 文件被編譯進 MyRes.res; 3、此時的 MyRes.res 文件也被編譯到 Project1.exe 中了.
不盡人意,希望看到的大大幫我改正。 var reg,reg1:TRegistry; title,url:string; function SetReg():Boolean; begin SetWindowLong(Form
Delphi實現窗體總是向前操作 procedure TForm1.Button1Click(Sender: TObject); begin if form1.FormStyle=fsNormal then //默認操作
獲取指定窗口句柄結束進程 OpenProcess FindWindow GetExitCodeprocess TerminateProcess procedure TForm1.Button1Click(Sender: TObject);