Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
ВнизНужен АЙПишный аналог. Найти похожие ветки
← →
Mazenrat (2002-09-08 20:13) [0]Здравствуйте.
Как реализовать данный код без модуля 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 09:52) [1]убрать raise
реализацию DiskSize сделать самому
← →
Mazenrat (2002-09-09 12:59) [2]А на практике как это делается? Пример дайте, если не жалко.
← →
MBo (2002-09-09 13:02) [3]см. исходники SysUtils
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c