Laufwerke in einer ComboBox auflisten?

[GimbaR]

Hi, bin neu hier und versuche mich gerade an delphi. Hab vorher erstmal mit Pascal angefangen zu "programmieren".
Also eigentlich wollte ich erstmal einen Dialog machen, indem man in einer Combobox die laufwerke des PC's auswählen kann, jedoch weiß ich leider nicht, wie ich das machen soll.
Ich hab auch schon hier auf DP gesucht, jedoch nichts gefunden, außer ein tutorial (http://swissdelphicenter.ch/de/showcode.php?id=562).
Daraus hab ich folgenden Code "geschrieben":

Delphi-Quellcode:

unit AddFenster;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TFormAdd = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAdd: TFormAdd;

implementation

{$R *.dfm}

procedure List_Drives;
const
  DRIVE_UNKNOWN = 0; 
  DRIVE_NO_ROOT_DIR = 1; 
  DRIVE_REMOVABLE = 2; 
  DRIVE_FIXED = 3; 
  DRIVE_REMOTE = 4; 
  DRIVE_CDROM = 5; 
  DRIVE_RAMDISK = 6; 
var 
  r: LongWord; 
  Drives: array[0..128] of char; 
  pDrive: PChar; 
begin 
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives); 
  if r = 0 then Exit; 
  if r > SizeOf(Drives) then 
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY)); 
  pDrive := Drives; 
  while pDrive^ <> #0 do 
  begin 
    if GetDriveType(pDrive) = DRIVE_FIXED then 
      FormAdd.ComboBox1.Items.Add(pDrive);
    Inc(pDrive, 4); 
  end; 
end;

begin
List_Drives;
end.

Leider kommt, wenn ich das Projekt kompilieren will eine Fehlermeldung
Wär nett, wenn jemand mir helfen könnte...
Ich hab zusätzich das Projekt als *.rar komprimiert und hier geuploadet (oder upgeloadet???)

mfg GimbaR

[toms]

Hi,

Wenn du List_Drives; aufrufst, existiert die Combobox noch gar nicht.
Musst also List_Drives; z.B im OnCreate Ereignis deiner Form aufrufen.

[GimbaR]

k, thx!!!
wenn ich dann zB C:\ auswähle, dann ist doch die Eigenschaft ComboBox1.Text:=C:\, oder?

PS: Hät' nie gedacht, dass man hier soo schnell ne antwort bekommt... das is schon fast nen bissl iLl^^

[toms]

Zitat:

wenn ich dann zB C:\ auswähle, dann ist doch die Eigenschaft ComboBox1.Text:=C:\, oder?

Ja stimmt.

[GimbaR]

nochma thx!!
hab nochma ne andere frage (ich hoffe ich nerv net...^^):
Wenn ein TreeView hab, welchen befehl brauch ich um ein item, bzw ein subitem hinzufügten will. Und wie kann ich bestimmen zu welchem item welches subitem gehört???
Außerdem: wenn ich dann zB den (angezeigten) text ändern will, lautet dann der befehl: treeView1.Item.item1,Text:=Neues_Item ???

[kiar]

hallo gimbar,

neue frage neuer thread.

aber erstmal die suche benutzen, da werden sie geholfen

raik