| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужен АЙПишный аналог.

Mazenrat ©   (2002-09-08 20:13:00) 

Здравствуйте.

Как реализовать данный код без модуля SysUtils?

uses
SysUtils;

//Проверяем: есть ли диск в СДюке
function DiskInDrive(Drive: Char): Boolean;
var
ErrorMode: word;
begin
if Drive in ["a".."z"] then Dec(Drive, $20);
if not (Drive in ["A".."Z"]) then
raise EConvertError.Create("Not a valid drive ID");
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);
try
if DiskSize (Ord(Drive) - $40) = -1 then Result := False
else Result := True;
finally
SetErrorMode(ErrorMode);
end;
end;

---

MBo   (2002-09-09 13:02:00) [1]

см. исходники SysUtils

---

Mazenrat   (2002-09-09 12:59:00) [2]

А на практике как это делается? Пример дайте, если не жалко.

---

MBo   (2002-09-09 09:52:00) [3]

убрать raise
реализацию DiskSize сделать самому

---

Наверх