Unterschied Win 98 und NT

madigeMade · Beiträge: 24

Hi @ all!

Hier ist mein Quelltext:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm4.DirectoryListBox1Change(Sender: TObject);
begin
  {$I-}
  if IOResult <> 0 then
  begin
    messagedlg('Bitte legen Sie einen beschreibbaren Datenträger ein',mtError,[mbOK],0);
    drivecombobox1.Drive:='c';
  end
  else
  begin
    directorylistbox1.Drive:=drivecombobox1.Drive;
    FileListBox1.Directory:=directorylistbox1.Directory;
  end;
end;

Dies ist einfach nur ne Abfrage wenn man z.B. auf eine Diskette zugreifen will.
Unter Win 98 klappt das wunderbar. Unter Win NT kommt zuerst 2 x eine Fehlermeldung und dann meine Fehlermeldung.
Muss ich bei NT noch zusätzlich was einbinden oder wo steckt der Fehler?

Gruß
de Made

_________________
Ich kam, sah und schrieb ein Prog.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich will ja nicht neugierig erscheinen, aber teilst du uns auch mit WAS für Fehlermeldungen Windows NT anzeigt?

MSCH · Verfasst: Mo 21.04.03 14:09

Zitat:

procedure TForm4.DirectoryListBox1Change(Sender: TObject);
begin
{$I-}
if IOResult <> 0 then
begin
...

womit bitte wird IOResult gesetzt? Nur alleine das OnChange() Ereigniss ist keine IO Routine.
Du musst vielleicht vorher mit der Disk, vielleicht den freien Speicherplatz, abfragen.
grez
Msch

madigeMade · Beiträge: 24

Das onchange ereignis reicht bei windows 98 für diese io-message. Es wird praktisch aus einer drivecombobox das Verzeichnis ausgelesen und wenn z.b. keine Diskette drinne liegt, kommt die Fehlermeldung. Windows NT schreibt vorher noch zwei mal die selbe Fehlermeldung "Keine Diskette im Laufwerk gefunden". Danach kommt erst diese Fehlermeldung.

Gruß de Made

_________________
Ich kam, sah und schrieb ein Prog.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme