CreateFile W98

[TryIt]

Hallo Forum,

unten steht ein Programmfragment und die Wurzel meines Problems. Das Programm habe ich selber nicht geschrieben, aber es scheint anderweitig zu funktionieren. Der Wert"INVALID_HANDLE_VALUE" ist leider immer true. Mit s='COM1' funktioniert es.
Ich benutze Delphi5 auf einer W98-Plattform.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hdevice: thandle;
     s:string;
begin
  s:='\\.\PD';
    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('ok') else ShowMessage('Sche...');
end;

Liegt es am W98SE? Wenn ja, gibt es eine andere Lösung?

Gruß
Bernhard

[edit=MrSpock]Delphi-Code Tags eingefügt. Mfg, MrSpock[/edit]

[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

[TryIt]

Hallo marabu,

vielen Dank für deine Willkommensgrüße und die rasche Antwort
Ich muß zugeben anfangs hat da mal PHYSICALDRIVE0' gestanden.

Scheint nur an den Adminrechten zu liegen.
Wenn ich mich als Admin ohne Paßword anmelde erhalte ich die gleiche Fehlermeldung.

Keine Ahnung wie ich unter W98 die Rechte erhalte.

Bernhard

[Christian Seehase]

Moin Bernhard,

Zitat von TryIt:

Liegt es am W98SE?

Zitat von PSDK - CreateFile:

Windows Me/98/95: You cannot open a directory, physical disk, or volume using CreateFile.

Lass' Dir doch mal nach dem fehlgeschlagenen CreateFile mit

ShowMessage(SysErrorMessage(GetLastError)); ausgeben, warum CreateFile INVALID_HANDLE_VALUE zurückgibt.

Zitat von TryIt:

Keine Ahnung wie ich unter W98 die Rechte erhalte.

Unter 9x/ME hast Du praktisch immer Adminrechte.
Dort gibt es diese Berechtigungen von NT/2000/XP nicht.

[TryIt]

Hallo und danke Christian,

es scheint, das es für das Problem keine Lösung außer ein Update auf W2000 oder so gibt.
Das Programm macht einen LOW-Level Zugriff auf eine Festplatte, welche aus meinen Festplatten-Videorecorder stammt.

Eigentlich wollte ich mich gestern an ein Linux Kernel-Modul wagen, bis ich das Programm gefunden habe. Meine Neigung den Zweitrechner noch aufzurüsten ist gering.

Das Programm ist zu finden auf der Web-Page
http://dcadiou.free.fr/DTH7000/download.htm
Der Programmteil stammt aus der unit disk

Gruß
Bernhard