Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.21;
Скачать: CL | DM;

Вниз

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

 
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 ;




Страницы: 1 вся ветка

Текущий архив: 2002.02.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
14-66686
Gayrus
2001-12-27 03:12
2002.02.21
C++ -> Delphi


3-66443
Velocity
2002-01-25 22:22
2002.02.21
Окно логина


1-66584
AZ
2002-02-04 07:22
2002.02.21
Связка по Event


3-66458
IronHawk
2002-01-25 17:12
2002.02.21
БД в *.tхt виде


3-66457
Dark
2002-01-28 17:09
2002.02.21
Помогите с SQL!!!