ReadFile und WriteFile

[marabu]

Hallo,

ich würde den Rückgabewert von WriteFile() beobachten. So richtig etwas falsches habe ich nicht sehen können, darum habe ich den Code mal mit D7 übersetzt - und er tut was er soll.

Delphi-Quellcode:

Begin
  SB := SizeOf(Buffer);
  FHandle := CreateFile(
    'C:\daten\DP\Test.$$$', GENERIC_READ or GENERIC_WRITE, 0, nil,
    CREATE_ALWAYS, FILE_FLAG_NO_BUFFERING or FILE_FLAG_WRITE_THROUGH, 0
  );
  if FHandle <> INVALID_HANDLE_VALUE then
  begin
    if WriteFile(FHandle, Buffer, SB, NR, nil)
      then ShowMessage(IntToStr(NR))
      else ShowMessage(SysErrorMessage(GetLastError));
    FileClose(FHandle);
  end;
end;

Grüße vom marabu