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