Форум: "Основная";
Поиск по всему сайту: 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.02 c
4-66721           Latspell              2001-12-21 16:39  2002.02.21  
Memory maped files, hooks, DLL s, global heap - помогите разобраться.


6-66642           jdr                   2001-12-01 03:07  2002.02.21  
сокеты


1-66535           Brand                 2002-02-04 22:57  2002.02.21  
DLL, не завершается основная программа.


1-66624           maxi                  2002-02-06 17:09  2002.02.21  
Как минимизировать объем exe файла в Делфи С++Билдер ?


1-66527           sammy                 2002-02-07 08:38  2002.02.21  
Удаление файлов.