Эмуляция работы компа :-)

← →
BlankAlex (2002-02-05 16:39) [3]

{Формирование списка доступных дисков}
procedure TfmImportMain.FormCreate(Sender: TObject);
var
i,DriveNum: Integer;
DriveChar: Char;
DriveType: Integer;
DriveBits: set of 0..25;
DriveList:TStringList ;
begin
MonthCombo.Items.Clear ;
Try
DriveList:=TStringList.Create ;
Integer(DriveBits) := GetLogicalDrives;
for DriveNum := 0 to 25 do
if DriveNum in DriveBits then Begin
DriveChar := Char(DriveNum + Ord("A"));
DriveType := GetDriveType(PChar(DriveChar + ":\"));
case DriveType of
DRIVE_FIXED,DRIVE_REMOTE: DriveList.AddObject("Диск "+AnsiUppercase(DriveChar)+":",TObject(DriveChar));
end;
end;

DriveCombo.Items.Clear ;
DriveCombo.Items.Assign(DriveList) ;
DriveCombo.Items.Insert(0,"Все диски") ;
DriveCombo.ItemIndex:=0 ;
Finally
DriveList.Free ;
End ;
end;

...
For i:=1 To DriveCombo.Items.Count-1 Do Begin
Disk:=AnsiUpperCase(AnsiUpperCase(Char(DriveCombo.Items.Objects[i]))) ;
UsedSize:=UsedSize+(DiskSizeEx1(Disk) - DiskFreeEx1(Disk)) ;
End ;

Эмуляция работы компа :-) Найти похожие ветки