Thema: Delphi combobox.text => PChar

Einzelnen Beitrag anzeigen

trashar

Registriert seit: 8. Aug 2003
Ort: Rhode
39 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: combobox.text => PChar

  Alt 30. Sep 2003, 17:24
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 Laufwerkthen
      begin
          Label6.Caption := inttostr(GetSerialNumber(PChar(defaulthdd)));
          if Label6.Caption = '0then 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 Laufwerkthen
      begin
          Label6.Caption := inttostr(GetSerialNumber(PChar(defaulthdd)));
          if Label6.Caption = '0then 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
  Mit Zitat antworten Zitat