易语言教程_易语言源码_易语言写挂_易语言论坛_看流星社区

 找回密码
 注册
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
查看: 1015|回复: 1

Delphi自定义释放资源过程

[复制链接]
发表于 2014-8-7 09:10:13 | 显示全部楼层 |阅读模式
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.
发表于 2015-7-18 11:17:33 | 显示全部楼层
c++的释放方式
FindResource
LoadResource
LockResource
if WriteFile(HFile, Ptr^, Size, LongWord(N), nil) then Result:= True;
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|看流星社区  |网站地图

GMT+8, 2018-6-25 10:15 易语言论坛 易语言导航

Powered by 看流星社区 X3.2

©2011-2016 最好的辅助编程技术论坛

快速回复 返回顶部 返回列表