Форум: "Основная";
Поиск по всему сайту: 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.027 c
3-66436           --Reporter--          2002-01-27 21:20  2002.02.21  
Проблема при создании процедуры на Interbase SQL


1-66591           BJValentine           2002-01-29 17:02  2002.02.21  
Path к запущенному EXE - шнику


1-66575           ctapik-net            2002-01-29 14:29  2002.02.21  
Как узнать над каким итемом combobox а находится курсор?


6-66639           Lamok                 2001-11-29 23:40  2002.02.21  
Socket


3-66502           Ivanov_Sergey         2002-01-30 01:14  2002.02.21  
не удалить таблицу.