delphi中使用自定义资源的方法

 1 unit Unit1;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs;
 8 
 9 type
10   TForm1 = class(TForm)
11     procedure FormCreate(Sender: TObject);
12   private
13     { Private declarations }
14   public
15     { Public declarations }
16   end;
17 
18 var
19   Form1: TForm1;
20 
21 //加入编译指令
22 {$R custom.res}
23 implementation
24 
25 {$R *.dfm}
26 
27 procedure TForm1.FormCreate(Sender: TObject);
28 begin
29   Screen.Cursors[1] := LoadCursor(hInstance, ‘TEST‘);
30   Form1.Cursor := 1;
31 end;
32 
33 end.