Delphi 5.0 + WinAPI32 kerdes

[Tauri]

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

Szilárd> Var
Szilárd>   F           : Integer;
Szilárd>   Size        : DWORD;
Szilárd>   BytesRead   : DWORD;
Szilárd>   hMem        : DWORD;
Szilárd>   pMem        : Pointer;
Szilárd>   b           : Boolean;
Szilárd>   ErrCode     : Integer;

Szilárd> begin
Szilárd>   F           := CreateFile( FILE_NAME,
Szilárd>                              GENERIC_READ,
Szilárd>                              FILE_SHARE_READ,
Szilárd>                              Nil,
Szilárd>                              OPEN_EXISTING,
Szilárd>                              0,
Szilárd>                              0 );
Szilárd>   Size        := GetFileSize( F, @BytesRead );
Szilárd>   hMem        := GlobalAlloc( GHND, Size );

itt GMEM_FIXED flag-el foglald a memoriát

Szilárd>   pMem        := GlobalLock( hMem );

akkor ez nem kell

Szilárd>   b           := ReadFile( F, pMem, Size, BytesRead, Nil);

b        := ReadFile( F, hMem, Size, BytesRead, Nil);

Szilárd>   ErrCode     := GetLastError;

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

Szilárd>   CloseHandle( F );

Szilárd>   GlobalUnlock( hMem );
ez sem kell

Szilárd> ---