Delphi 5.0 + WinAPI32 kerdes

[tiszaii at axelero.hu]

Tárgy:

--------------------------------------------------------------------------------
Jó reggel(i)t Mindenkinek! 

---
Const
  FILE_NAME : PChar  = 'c:\projects\refete\exe\1.doc';

Var
  F           : Integer;
  Size        : DWORD;
  BytesRead   : DWORD;
  hMem        : DWORD;
  pMem        : Pointer;
  b           : Boolean;
  ErrCode     : Integer;

begin
  F           := CreateFile( FILE_NAME,
                            GENERIC_READ,
                            FILE_SHARE_READ,
                            Nil,
                            OPEN_EXISTING,
                            0,
                            0 );
  Size        := GetFileSize( F, @BytesRead );
  hMem        := GlobalAlloc( GHND, Size );
  pMem        := GlobalLock( hMem );
  b           := ReadFile( F, pMem, Size, BytesRead, Nil);

  ErrCode     := GetLastError;

  MessageDlg( 'ReadFile hibakód: ' + IntToStr(ErrCode),   mtError, [mbOk], 0 );

  CloseHandle( F );
  GlobalUnlock( hMem );


if  (Size=#FFFFFFFF)
then        
ErrCode     := GetLastError;
else
 b           := ReadFile( F, pMem, BytesRead,BytesReaded, Nil);


De miert nem hasznalod a fstream,TMemStream osztályokat?