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
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