Noch vorhandene LW ermitteln.... D5

WEBSTER · 14.05.2002

Salute,

ich möchte mir die noch verfügbaren Laufwerke meines Rechners in eine ComboBox einlesen.

Wie ermittel ich diese...?

Bitte um Antwort....

THX
WEBSTER

WEBSTER · 14.05.2002

Salute,

ich habe mir schon selber geholfen.... Für alle die es Interessiert:

Code:

procedure Tmain_Form.FormShow(Sender: TObject);
VAR
 I : Integer;
begin
  //////////////////////////////////////////////////////////////////////////////
  // Die möglichen SUBST Laufwerke werden ermittelt

  subst_ComboBox.Items.Clear;

  for I := 65 to 90 do
  begin
    if GetDriveType(Pchar(chr(I) + ':\')) = 1 then subst_ComboBox.Items.Add(chr(I) + ':\');
  end;
end;

WEBSTER

Noch vorhandene LW ermitteln.... D5

WEBSTER

WEBSTER

Noch vorhandene LW ermitteln.... D5

ANGEBOTE & SPONSOREN

Neueste Beiträge

Statistik des Forums