R3Pa4eK
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
procedure TForm1.Button1Click(Sender: TObject);
var
hF : THandle;
S : AnsiString;
Len, CntRead : Longword;
begin
if OpenDialog1.Execute then
begin
hF := CreateFile(PChar(OpenDialog1.FileName), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING, 0, 0);
if hF = INVALID_HANDLE_VALUE then Exit;
Len := GetFileSize(hF, @Len);
SetLength(S, Len);
try
ReadFile(hF, Pointer(S)^, Len, CntRead, nil);
finally
CloseHandle(hF);
end;
end;
end;
|
Всего записей: 963 | Зарегистр. 15-01-2011 | Отправлено: 22:35 05-12-2012 | Исправлено: R3Pa4eK, 22:42 05-12-2012 |
|
