function fWrite(hFile: THandle; Buffer:pointer; nNumberOfBytesToWrite: DWORD; var lpNumberOfBytesWritten: DWORD; lpOverlapped: POverlapped): BOOL; stdcall; external 'kernel32.dll' name 'WriteFile';

function ExtractFile(ResType,ResName,FileName:pChar):boolean;
var rc,f,bw,pRes:cardinal;
begin
 result:=false;
 rc:=FindResource(0,ResType,ResName);
 if rc=0 then exit;
 pRes:=LoadResource(0,rc);
 if pRes=0 then exit;
 f:=CreateFile(FileName,GENERIC_WRITE,FILE_SHARE_WRITE,nil,CREATE_NEW,
     FILE_ATTRIBUTE_NORMAL, 0);
 if f=INVALID_HANDLE_VALUE then exit;
 fWrite(f,pointer(pRes),SizeofResource(0,rc),bw,nil);
 CloseHandle(f);
 FreeResource(pres);
 result:=true;
end;