DELPHI资源文件的常规使用 - DELPHI基础教程 - 新闻中心 - PHP168整站系统 powered by www.php168.com

文章内容

资源文件就是项目中的.res文件，在DELPHI5中project菜单下有Resources项，可以编辑资源，也可以使用VC打开.res 文件进行编辑。

注：DelphiX\Demos\Resxplor\resxplor.exe 可以进行资源文件浏览，可以协助使用资源文件

以下通过代码说明资源文件的使用

使用数据(二行制)，对于资源文件来讲是RT_RCDATA类型

procedure TForm1.TESTDATEClick(Sender: TObject);
var
  n: integer;
  hrscr1: HRSRC;
  hglobal1: HGLOBAL;
  str1: Pchar;
  p:pointer;
begin
//查找资源  HInstance 表示使用自身
//可以通过 LoadLibrary('11.exe');调用其他文件
 //RCDATA_1数据已经在DELPHI资源管理中RCDATA项目内建立，
  hrscr1:= FindResource(HInstance, 'RCDATA_1', RT_RCDATA);
  if  hrscr1=0 then exit;
//调入资源
  hglobal1 := LoadResource(0, hrscr1);
  n := SizeofResource(Hinstance,hrscr1);
  ShowMessage('数据长度为：=' + inttostr(n));
//返回的为一个指针，本文测试用的是文本文件，
//实际中可以是二进制文件，通过指针P和资源长度N进行访问
  str1 := LockResource(hglobal1);
  p:= LockResource(hglobal1);
  if str1 = nil then exit;
  ShowMessage(str1);
  showMessage('字符串长度:'+inttostr(length(str1)));
end;

调入图标文件

procedure TForm1.iconBoxChange(Sender: TObject);
begin
Image1.Picture.Icon.Handle:=LoadIcon(HInstance,pchar(iconBox.Text));
end;

改变鼠标指针

procedure TForm1.currorboxChange(Sender: TObject);
begin
  Screen.Cursors[1] := LoadCursor(HInstance,pchar(currorbox.text));
  form1.Cursor:=1;
end;

调入Bitmap图片

procedure TForm1.LISTBITMAPChange(Sender: TObject);
begin
//  Image1
Image1.Picture.Bitmap.Handle:=LoadBitmap(HInstance,pchar(LISTBITMAP.text));
end;

调用其他EXT或DLL文件中的资源

procedure TForm1.useloadlibrayClick(Sender: TObject);
var
n:integer;
begin
n:=LoadLibrary('11.exe');
Image1.Picture.Bitmap.Handle:=LoadBitmap(n,pchar(LISTBITMAP.text));
FreeLibrary(n);
end;

关于作者

王辉　从1994年开始工作，曾是一名数据库管理员及程序员，现在深圳一家公司担任项目经理。可以通过ddxxkk@21cn.com联系。

【