Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

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


ray_wagner   (2002-02-05 15:45) [0]

Как сделать так чтобы во время показа заставки комп делал вид, что данных грузит немеренно(винтом хрустел):-). Только без вреда системе!



Фэ   (2002-02-05 15:59) [1]

В цикле сканируй каталоги и вычисляй размер, контрольную сумму и т.д.



ray_wagner   (2002-02-05 16:32) [2]

А код, если можно?



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 ;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.028 c
14-66648          petr_v_a              2001-12-29 21:34  2002.02.21  
а мы тут пьем .....


1-66605           jenbond               2002-02-06 10:43  2002.02.21  
Гипертекстовые ссылки


14-66660          IrviS                 2001-12-31 20:59  2002.02.21  
Что-то типа домино, но сложнее


1-66608           tovSuhov              2002-02-06 11:56  2002.02.21  
BlockRead в массив...


1-66594           Genious               2002-02-06 01:52  2002.02.21  
Help