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]