Problem mit Laufwerkstyp erkennen

**monty.ms**

Hallo,

ich habe folgendes Probleme: Ich will, wie in dem Beispiel unten, den Typ des Laufwerks im Label1 darstellen lassen. Der ItemIndex ist am Anfang 0. Er wechselt also erst wenn die Prozedur ausgeführt wird. Aber aus irgendeinem Grund zeigt er mir trotzdem den Typ vom Index 0 an, obwohl man sieht, dass er gewechselt hat, da dass zweite Laufwerk angezeigt wird. Hat einer ne Idee wieso? Wenn ich den ItemIndex manuell änder (also einfach direkt an der DriveComboBox ändern) dann zeigt er mir den richtigen Typ an.

Danke

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

VAR drv_type : Integer;

    drv      : Char;

    a        : String;

begin

  DriveComboBox1.ItemIndex := 1;

  drv := Char(DriveComboBox1.Drive);

  drv_type := GetDriveType(PChar(drv+':\'));

  Case drv_type of

   DRIVE_UNKNOWN: a := '1';

   DRIVE_REMOVABLE: a := '2';

   DRIVE_FIXED: a := '3';

   DRIVE_REMOTE: a := '4';

   DRIVE_CDROM: a := '5';

   DRIVE_RAMDISK: a := '6';

  end;

Label1.Caption := a;

monty

Problem mit Laufwerkstyp erkennen

Problem mit Laufwerkstyp erkennen

Forumregeln