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