combobox.text => PChar

[trashar]

hm leider klappen die beiden letzteren möglichkeiten nicht so wie soe sollen
wie ist das den mit dem cast gemeint??

also ich will mir ein paar laufwerkinfos ausgeben lassen

Delphi-Quellcode:

  defaulthdd := 'C:\';
      Label4.caption := DriveType(PChar(defaulthdd));
if Label4.Caption <> 'unbekanntes Laufwerk' then
      begin
          Label6.Caption := inttostr(GetSerialNumber(PChar(defaulthdd)));
          if Label6.Caption = '0' then Label6.Caption := 'Seriennummer unbekannt';
          GetDiskFreeSpaceEx(PChar(defaulthdd), freeCaller, total, nil);
          label8.caption:=IntToStr(freeCaller)+' Bytes';
          label10.caption:= IntToStr(total)+' Bytes';

      end;

(defaulthdd wird als string deklariert)

das geht soweit. dies ist fürs laden des forms

wenn ich allerdings in dem combobox auslesen will (wo man die hdd oder cd laufwerk oder so auswählen kann)

Delphi-Quellcode:

      defaulthdd := Combobox1.Text;
      Label4.caption := DriveType(PChar(defaulthdd));
      if Label4.Caption <> 'unbekanntes Laufwerk' then
      begin
          Label6.Caption := inttostr(GetSerialNumber(PChar(defaulthdd)));
          if Label6.Caption = '0' then Label6.Caption := 'Seriennummer unbekannt';
          GetDiskFreeSpaceEx(PChar(defaulthdd), freeCaller, total, nil);
          label8.caption:=IntToStr(freeCaller)+' Bytes';
          label10.caption:= IntToStr(total)+' Bytes';

      end;

dann wird nur noch der laufwerkstyp richtig angezeigt
bei den bytes steht jewalls 0

und bei der serien nr kommt beim laden zwar unbekannt aber beim wechsel kommen total komsiche zahlen die teilweise sogar negativ sind

kann mir wer helfen?

mfg