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]