var
Form1: TForm1;{$R resource.res}implementationuses
ShellApi;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursor := 1;
Screen.Cursors[crHand] := LoadCursor(hInstance, 'HAND');
end;procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Form1.Icon.Handle := LoadIcon(hInstance, 'SOUND')
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CloseBtn.Glyph.Handle := LoadBitMap(hInstance, 'EXIT');
CloseBtn.Glyph.Width := 64;
CloseBtn.Glyph.Height := 32;
end;
Form1: TForm1;{$R resource.res}implementationuses
ShellApi;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursor := 1;
Screen.Cursors[crHand] := LoadCursor(hInstance, 'HAND');
end;procedure TForm1.CheckBox2Click(Sender: TObject);
begin
Form1.Icon.Handle := LoadIcon(hInstance, 'SOUND')
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CloseBtn.Glyph.Handle := LoadBitMap(hInstance, 'EXIT');
CloseBtn.Glyph.Width := 64;
CloseBtn.Glyph.Height := 32;
end;
我说的是怎样提取其它程序的资源,我并不知道其中资源的ID,就象从EXE文件中提取ICON一样。能否提取出其中的BITMAP呢?