Delphi自定义释放资源过程

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 .