Delphi自定义释放资源过程

最新推荐文章于 2024-12-10 16:06:08 发布

原创最新推荐文章于 2024-12-10 16:06:08 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #windows #string #dll #file

Delphi 专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一个从DLL文件中提取资源的实用示例。通过使用Windows API函数，如FindResource、LoadResource等，该示例展示了如何定位指定类型的资源，并将其写入新的DLL文件中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

program Project2;

uses
  Windows;

{$R mydll.RES}

function ExtractRes(ResType, ResName, OutName: string): Boolean;
var
  HResInfo: THandle;
  HGlobal: THandle;
  HFile: THandle;
  Ptr: Pointer;
  Size, N: Integer;
begin
  HFile:= INVALID_HANDLE_VALUE;
  repeat
  Result:= False;
  HResInfo:= FindResource(HInstance, PChar(ResName), PChar(ResType));
  if HResInfo = 0 then Break;
  HGlobal:= LoadResource(HInstance, HResInfo);
  if HGlobal = 0 then Break;
  Ptr:= LockResource(HGlobal);
  Size:= SizeOfResource(HInstance, HResInfo);
  if Ptr = nil then Break;
  HFile:= CreateFile(PChar(OutName), GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
  if HFile = INVALID_HANDLE_VALUE then Break;
  if WriteFile(HFile, Ptr^, Size, LongWord(N), nil) then Result:= True;
until True;
  if HFile <> INVALID_HANDLE_VALUE then CloseHandle(HFile);
end;

begin
  ExtractRes('dll', 'mydll','C:/123.dll' );   //资源类型 资源名 输出文件名
end.