Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.022 c
1-66603           sammy                 2002-02-06 11:40  2002.02.21  
Удаление файлов


3-66420           Besa                  2002-01-25 17:11  2002.02.21  
SQL по 2 БД?


1-66547           EsKor                 2002-02-05 10:48  2002.02.21  
Передача объектов в процедуру/функцию


1-66522           DenMat                2002-02-07 09:53  2002.02.21  
Поинтер


3-66426           savva                 2002-01-24 10:00  2002.02.21  
Можно ли в хранимой прцедуре InterBase вызывать функции, хранящиеся в самой базе (Functions)