9
июня

На некоторых laptop компьютерах может не быть флоппи дисковода

   Автор: admin   в Delphi FAQ

Вопрос:
На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять
из списка TDriveComboBox диски которые отключены?
Ответ:
В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready).
Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&play
флоппи дисковода.

Пример:

procedure TForm1.FormCreate(Sender: TObject);
var
	i : integer;
	OldErrorMode : Word;
	OldDirectory : string;
begin
	OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
	GetDir(0, OldDirectory);
	i := 0;
	while i <= DriveComboBox1.Items.Count - 1 do begin
	{$I-}
	ChDir(DriveComboBox1.Items[i][1] + ':\');
	{$I+}
	if IoResult <> 0 then
		DriveComboBox1.Items.Delete(i)
	else
		inc(i);
	end;
	ChDir(OldDirectory);
	SetErrorMode(OldErrorMode);
end;

Tags: , , , , , , , ,

Дата создания: Понедельник, июня 9, 2008 - 19:31 и находится в категории Delphi FAQ. Вы можете отслеживать ответы через RSS 2.0. Вы можете ответить.

Ответить

Вы должны быть в системе для комментирования.