CreateFile W98

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Bernhard.

Versuche es mal mit \\.\PHYSICALDRIVE0 - und schau dir an wie ich deinen Code mit den Delphi-Tags aus dem Beitragseditor optisch aufwerte:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  hDevice: THandle;
  s: String;
begin
  s := '\\.\PHYSICALDRIVE0';

  hDevice := CreateFile(
    PChar(s), 
    GENERIC_READ or GENERIC_WRITE, 
    FILE_SHARE_READ or FILE_SHARE_WRITE,
    nil,
    OPEN_EXISTING,
    FILE_FLAG_WRITE_THROUGH,
    0
  );

  if hDevice = INVALID_HANDLE_VALUE 
    then ShowMessage('no way') 
    else ShowMessage('smile!');
end;

Keine Ahnung von Win98, aber du brauchst Adminrechte, damit es klappt.

Silvestergrüße vom marabu