| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Есть ли в CD-ROM диск?
GoshaT © (2006-03-01 12:18:00)Как узнать есть ли в CD-ROM диск?
AlexeyT (2006-03-09 20:28:00) [1]
> В какой справке?
В справке win32.hlp по функции SetCurrentDirectory.
Fay (2006-03-09 10:37:00) [2]> А то в справке что-то про это ничего нету.
В какой справке? По калькулятору?
AlexeyT (2006-03-09 08:37:00) [3]
> clickmaker © (01.03.06 12:27) [1]
> OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
> bCoffeeHolderNotEmpty := SetCurrentDirectory('F:\');
А SetErrorMode тут зачем? А то в справке что-то про это ничего нету.
eeee (2006-03-08 19:33:00) [4]if GetVolumeInformation(...) then ...
Nick Denry (2006-03-02 15:30:00) [5]
function CheckCD(MPDeviceType: TMPDeviceTypes; var Error: mciError): Integer;
var
MCIOpen :TMCI_OPEN_PARMS;
MCIStatus :TMCI_STATUS_PARMS;
DevID :Integer;
begin
//MCIOpen.lpstrDeviceType := pChar(MCI_DEVTYPE_CD_AUDIO + DiskNum shl 16);
//MCIOpen.lpstrElementName := '';
MCIOpen.lpstrDeviceType := DeviceName[MPDeviceType];
Error := mciSendCommand(MCI_DEVTYPE_CD_AUDIO,
MCI_OPEN, MCI_WAIT + MCI_OPEN_TYPE{ + MCI_OPEN_TYPE_ID},
Integer(@MCIOpen));
DevID := MCIOpen.wDeviceID;
if (Error = 0) then
try
MCIStatus.dwItem := MCI_STATUS_MEDIA_PRESENT;
Error := mciSendCommand(DevID, MCI_STATUS, MCI_WAIT + MCI_STATUS_ITEM, Integer(@MCIStatus));
if (Error = 0) and (MCIStatus.dwReturn <> 0) then Result := cddbOK
else Result := cddbNoDiscInDrive;
finally
mciSendCommand(DevID, MCI_CLOSE, MCI_WAIT, 0);
end
else
if (Error = MCIERR_MUST_USE_SHAREABLE) then Result := cddbDriveInUse
else Result := cddbUnableToOpen;
end;
end.
Nick Denry (2006-03-02 15:29:00) [6]
{$EXTERNALSYM MCIERR_NO_WINDOW}
MCIERR_NO_WINDOW = MCIERR_BASE + 90;
{$EXTERNALSYM MCIERR_CREATEWINDOW}
MCIERR_CREATEWINDOW = MCIERR_BASE + 91;
{$EXTERNALSYM MCIERR_FILE_READ}
MCIERR_FILE_READ = MCIERR_BASE + 92;
{$EXTERNALSYM MCIERR_FILE_WRITE}
MCIERR_FILE_WRITE = MCIERR_BASE + 93;
{$EXTERNALSYM MCIERR_NO_IDENTITY}
MCIERR_NO_IDENTITY = MCIERR_BASE + 94;
{ all custom device driver errors must be >= this value }
const
{$EXTERNALSYM MCIERR_CUSTOM_DRIVER_BASE}
MCIERR_CUSTOM_DRIVER_BASE = mcierr_Base + 256;
const
{$EXTERNALSYM MCI_STRING_OFFSET}
MCI_STRING_OFFSET = 512;
{$EXTERNALSYM MCI_DEVTYPE_CD_AUDIO}
MCI_DEVTYPE_CD_AUDIO = MCI_STRING_OFFSET + 4;
{$EXTERNALSYM MCI_OPEN}
MCI_OPEN = $0803;
{$EXTERNALSYM MCI_OPEN_TYPE}
MCI_OPEN_TYPE = $00002000;
{$EXTERNALSYM MCI_WAIT}
MCI_WAIT = $00000002;
{$EXTERNALSYM MCI_STATUS_MEDIA_PRESENT}
MCI_STATUS_MEDIA_PRESENT = $00000005;
{$EXTERNALSYM MCI_STATUS}
MCI_STATUS = $0814;
{$EXTERNALSYM MCI_STATUS_ITEM}
MCI_STATUS_ITEM = $00000100;
{$EXTERNALSYM MCI_CLOSE}
MCI_CLOSE = $0804;
function CheckCD(MPDeviceType: TMPDeviceTypes; var Error: mciError): Integer;
function GetErrorMgs(Error: Integer): PChar;
function mciSendCommand; external 'Winmm.dll' name 'mciSendCommandA';
implementation
function GetErrorMgs(Error: Integer): PChar;
begin
case Error of
MCIERR_NONE_ERROR : Result := 'MCIERR_NONE_ERROR';
MCIERR_INVALID_DEVICE_ID : Result := 'MCIERR_INVALID_DEVICE_ID';
MCIERR_UNRECOGNIZED_KEYWORD : Result := 'MCIERR_UNRECOGNIZED_KEYWORD';
MCIERR_UNRECOGNIZED_COMMAND : Result := 'MCIERR_UNRECOGNIZED_COMMAND';
MCIERR_HARDWARE : Result := 'MCIERR_HARDWARE';
MCIERR_INVALID_DEVICE_NAME : Result := 'MCIERR_INVALID_DEVICE_NAME';
MCIERR_OUT_OF_MEMORY : Result := 'MCIERR_OUT_OF_MEMORY';
MCIERR_DEVICE_OPEN : Result := 'MCIERR_DEVICE_OPEN';
MCIERR_CANNOT_LOAD_DRIVER : Result := 'MCIERR_CANNOT_LOAD_DRIVER';
MCIERR_MISSING_COMMAND_STRING : Result := 'MCIERR_MISSING_COMMAND_STRING';
MCIERR_PARAM_OVERFLOW : Result := 'MCIERR_PARAM_OVERFLOW';
MCIERR_MISSING_STRING_ARGUMENT : Result := 'MCIERR_MISSING_STRING_ARGUMENT';
MCIERR_BAD_INTEGER : Result := 'MCIERR_BAD_INTEGER';
MCIERR_PARSER_INTERNAL : Result := 'MCIERR_PARSER_INTERNAL';
MCIERR_DRIVER_INTERNAL : Result := 'MCIERR_DRIVER_INTERNAL';
MCIERR_MISSING_PARAMETER : Result := 'MCIERR_MISSING_PARAMETER';
MCIERR_UNSUPPORTED_FUNCTION : Result := 'MCIERR_UNSUPPORTED_FUNCTION';
MCIERR_FILE_NOT_FOUND : Result := 'MCIERR_FILE_NOT_FOUND';
MCIERR_DEVICE_NOT_READY : Result := 'MCIERR_DEVICE_NOT_READY';
MCIERR_INTERNAL : Result := 'MCIERR_INTERNAL';
MCIERR_DRIVER : Result := 'MCIERR_DRIVER';
MCIERR_CANNOT_USE_ALL : Result := 'MCIERR_CANNOT_USE_ALL';
MCIERR_MULTIPLE : Result := 'MCIERR_MULTIPLE';
MCIERR_EXTENSION_NOT_FOUND : Result := 'MCIERR_EXTENSION_NOT_FOUND';
MCIERR_OUTOFRANGE : Result := 'MCIERR_OUTOFRANGE';
MCIERR_FLAGS_NOT_COMPATIBLE : Result := 'MCIERR_FLAGS_NOT_COMPATIBLE';
MCIERR_FILE_NOT_SAVED : Result := 'MCIERR_FILE_NOT_SAVED';
MCIERR_DEVICE_TYPE_REQUIRED : Result := 'MCIERR_DEVICE_TYPE_REQUIRED';
MCIERR_DEVICE_LOCKED : Result := 'MCIERR_DEVICE_LOCKED';
MCIERR_DUPLICATE_ALIAS : Result := 'MCIERR_DUPLICATE_ALIAS';
MCIERR_BAD_CONSTANT : Result := 'MCIERR_BAD_CONSTANT';
MCIERR_MUST_USE_SHAREABLE : Result := 'MCIERR_MUST_USE_SHAREABLE';
MCIERR_MISSING_DEVICE_NAME : Result := 'MCIERR_MISSING_DEVICE_NAME';
MCIERR_BAD_TIME_FORMAT : Result := 'MCIERR_BAD_TIME_FORMAT';
MCIERR_NO_CLOSING_QUOTE : Result := 'MCIERR_NO_CLOSING_QUOTE';
MCIERR_DUPLICATE_FLAGS : Result := 'MCIERR_DUPLICATE_FLAGS';
MCIERR_INVALID_FILE : Result := 'MCIERR_INVALID_FILE';
MCIERR_NULL_PARAMETER_BLOCK : Result := 'MCIERR_NULL_PARAMETER_BLOCK';
MCIERR_UNNAMED_RESOURCE : Result := 'MCIERR_UNNAMED_RESOURCE';
MCIERR_NEW_REQUIRES_ALIAS : Result := 'MCIERR_NEW_REQUIRES_ALIAS';
MCIERR_NOTIFY_ON_AUTO_OPEN : Result := 'MCIERR_NOTIFY_ON_AUTO_OPEN';
MCIERR_NO_ELEMENT_ALLOWED : Result := 'MCIERR_NO_ELEMENT_ALLOWED';
MCIERR_NONAPPLICABLE_FUNCTION : Result := 'MCIERR_NONAPPLICABLE_FUNCTION';
MCIERR_ILLEGAL_FOR_AUTO_OPEN : Result := 'MCIERR_ILLEGAL_FOR_AUTO_OPEN';
MCIERR_FILENAME_REQUIRED : Result := 'MCIERR_FILENAME_REQUIRED';
MCIERR_EXTRA_CHARACTERS : Result := 'MCIERR_EXTRA_CHARACTERS';
MCIERR_DEVICE_NOT_INSTALLED : Result := 'MCIERR_DEVICE_NOT_INSTALLED';
MCIERR_GET_CD : Result := 'MCIERR_GET_CD';
MCIERR_SET_CD : Result := 'MCIERR_SET_CD';
MCIERR_SET_DRIVE : Result := 'MCIERR_SET_DRIVE';
MCIERR_DEVICE_LENGTH : Result := 'MCIERR_DEVICE_LENGTH';
MCIERR_DEVICE_ORD_LENGTH : Result := 'MCIERR_DEVICE_ORD_LENGTH';
MCIERR_NO_INTEGER : Result := 'MCIERR_NO_INTEGER';
MCIERR_WAVE_OUTPUTSINUSE : Result := 'MCIERR_WAVE_OUTPUTSINUSE';
MCIERR_WAVE_SETOUTPUTINUSE : Result := 'MCIERR_WAVE_SETOUTPUTINUSE';
MCIERR_WAVE_INPUTSINUSE : Result := 'MCIERR_WAVE_INPUTSINUSE';
MCIERR_WAVE_SETINPUTINUSE : Result := 'MCIERR_WAVE_SETINPUTINUSE';
MCIERR_WAVE_OUTPUTUNSPECIFIED : Result := 'MCIERR_WAVE_OUTPUTUNSPECIFIED';
MCIERR_WAVE_INPUTUNSPECIFIED : Result := 'MCIERR_WAVE_INPUTUNSPECIFIED';
MCIERR_WAVE_OUTPUTSUNSUITABLE : Result := 'MCIERR_WAVE_OUTPUTSUNSUITABLE';
MCIERR_WAVE_SETOUTPUTUNSUITABLE : Result := 'MCIERR_WAVE_SETOUTPUTUNSUITABLE';
MCIERR_WAVE_INPUTSUNSUITABLE : Result := 'MCIERR_WAVE_INPUTSUNSUITABLE';
MCIERR_WAVE_SETINPUTUNSUITABLE : Result := 'MCIERR_WAVE_SETINPUTUNSUITABLE';
MCIERR_SEQ_DIV_INCOMPATIBLE : Result := 'MCIERR_SEQ_DIV_INCOMPATIBLE';
MCIERR_SEQ_PORT_INUSE : Result := 'MCIERR_SEQ_PORT_INUSE';
MCIERR_SEQ_PORT_NONEXISTENT : Result := 'MCIERR_SEQ_PORT_NONEXISTENT';
MCIERR_SEQ_PORT_MAPNODEVICE : Result := 'MCIERR_SEQ_PORT_MAPNODEVICE';
MCIERR_SEQ_PORT_MISCERROR : Result := 'MCIERR_SEQ_PORT_MISCERROR';
MCIERR_SEQ_TIMER : Result := 'MCIERR_SEQ_TIMER';
MCIERR_SEQ_PORTUNSPECIFIED : Result := 'MCIERR_SEQ_PORTUNSPECIFIED';
MCIERR_SEQ_NOMIDIPRESENT : Result := 'MCIERR_SEQ_NOMIDIPRESENT';
MCIERR_NO_WINDOW : Result := 'MCIERR_NO_WINDOW';
MCIERR_CREATEWINDOW : Result := 'MCIERR_CREATEWINDOW';
MCIERR_FILE_READ : Result := 'MCIERR_FILE_READ';
MCIERR_FILE_WRITE : Result := 'MCIERR_FILE_WRITE';
MCIERR_NO_IDENTITY : Result := 'MCIERR_NO_IDENTITY';
else Result := 'UNKNOWN CUSTOM ERROR';
end;
end;
Nick Denry (2006-03-02 15:28:00) [7]Еще можно через MCI
unit mci;
interface
uses Windows,Messages{,MMSystem};
type
TMPDeviceTypes = (dtAutoSelect, dtAVIVideo, dtCDAudio, dtDAT,
dtDigitalVideo, dtMMMovie, dtOther, dtOverlay,
dtScanner, dtSequencer, dtVCR, dtVideodisc, dtWaveAudio);
MCIERROR = DWORD;
MCIDEVICEID = UINT; { MCI device ID type }
{$EXTERNALSYM mciSendCommand}
function mciSendCommand(mciId: MCIDEVICEID; uMessage: UINT;
dwParam1, dwParam2: DWORD): MCIERROR; stdcall;
{ parameter block for MCI_OPEN command message }
type
PMCI_Open_ParmsA = ^TMCI_Open_ParmsA;
PMCI_Open_ParmsW = ^TMCI_Open_ParmsW;
PMCI_Open_Parms = PMCI_Open_ParmsA;
{$EXTERNALSYM tagMCI_OPEN_PARMSA}
tagMCI_OPEN_PARMSA = record
dwCallback: DWORD;
wDeviceID: MCIDEVICEID;
lpstrDeviceType: PAnsiChar;
lpstrElementName: PAnsiChar;
lpstrAlias: PAnsiChar;
end;
{$EXTERNALSYM tagMCI_OPEN_PARMSW}
tagMCI_OPEN_PARMSW = record
dwCallback: DWORD;
wDeviceID: MCIDEVICEID;
lpstrDeviceType: PWideChar;
lpstrElementName: PWideChar;
lpstrAlias: PWideChar;
end;
{$EXTERNALSYM tagMCI_OPEN_PARMS}
tagMCI_OPEN_PARMS = tagMCI_OPEN_PARMSA;
TMCI_Open_ParmsA = tagMCI_OPEN_PARMSA;
TMCI_Open_ParmsW = tagMCI_OPEN_PARMSW;
TMCI_Open_Parms = TMCI_Open_ParmsA;
{$EXTERNALSYM MCI_OPEN_PARMSA}
MCI_OPEN_PARMSA = tagMCI_OPEN_PARMSA;
{$EXTERNALSYM MCI_OPEN_PARMSW}
MCI_OPEN_PARMSW = tagMCI_OPEN_PARMSW;
{$EXTERNALSYM MCI_OPEN_PARMS}
MCI_OPEN_PARMS = MCI_OPEN_PARMSA;
{ parameter block for MCI_STATUS command message }
type
PMCI_Status_Parms = ^TMCI_Status_Parms;
{$EXTERNALSYM tagMCI_STATUS_PARMS}
tagMCI_STATUS_PARMS = record
dwCallback: DWORD;
dwReturn: DWORD;
dwItem: DWORD;
dwTrack: DWORD;
end;
TMCI_Status_Parms = tagMCI_STATUS_PARMS;
{$EXTERNALSYM MCI_STATUS_PARMS}
MCI_STATUS_PARMS = tagMCI_STATUS_PARMS;
const
MCIERR_NONE_ERROR = 0;
cddbOK = 0;
cddbDriveInUse = -1;
cddbUnableToOpen = -2;
cddbMSFFormatUnavailable = -3;
cddbNoDiscInDrive = -4;
cddbNoTracks = -5;
cddbUnableToGetTracks = -6;
DeviceName: array[TMPDeviceTypes] of PChar =
('', 'AVIVideo', 'CDAudio', 'DAT',
'DigitalVideo', 'MMMovie', 'Other',
'Overlay', 'Scanner', 'Sequencer',
'VCR', 'Videodisc', 'WaveAudio');
{ MCI error return values }
const
{$EXTERNALSYM MCIERR_BASE}
MCIERR_BASE = 256;
{$EXTERNALSYM MCIERR_INVALID_DEVICE_ID}
MCIERR_INVALID_DEVICE_ID = MCIERR_BASE + 1;
{$EXTERNALSYM MCIERR_UNRECOGNIZED_KEYWORD}
MCIERR_UNRECOGNIZED_KEYWORD = MCIERR_BASE + 3;
Nick Denry (2006-03-02 15:28:00) [8]
{$EXTERNALSYM MCIERR_UNRECOGNIZED_COMMAND}
MCIERR_UNRECOGNIZED_COMMAND = MCIERR_BASE + 5;
{$EXTERNALSYM MCIERR_HARDWARE}
MCIERR_HARDWARE = MCIERR_BASE + 6;
{$EXTERNALSYM MCIERR_INVALID_DEVICE_NAME}
MCIERR_INVALID_DEVICE_NAME = MCIERR_BASE + 7;
{$EXTERNALSYM MCIERR_OUT_OF_MEMORY}
MCIERR_OUT_OF_MEMORY = MCIERR_BASE + 8;
{$EXTERNALSYM MCIERR_DEVICE_OPEN}
MCIERR_DEVICE_OPEN = MCIERR_BASE + 9;
{$EXTERNALSYM MCIERR_CANNOT_LOAD_DRIVER}
MCIERR_CANNOT_LOAD_DRIVER = MCIERR_BASE + 10;
{$EXTERNALSYM MCIERR_MISSING_COMMAND_STRING}
MCIERR_MISSING_COMMAND_STRING = MCIERR_BASE + 11;
{$EXTERNALSYM MCIERR_PARAM_OVERFLOW}
MCIERR_PARAM_OVERFLOW = MCIERR_BASE + 12;
{$EXTERNALSYM MCIERR_MISSING_STRING_ARGUMENT}
MCIERR_MISSING_STRING_ARGUMENT = MCIERR_BASE + 13;
{$EXTERNALSYM MCIERR_BAD_INTEGER}
MCIERR_BAD_INTEGER = MCIERR_BASE + 14;
{$EXTERNALSYM MCIERR_PARSER_INTERNAL}
MCIERR_PARSER_INTERNAL = MCIERR_BASE + 15;
{$EXTERNALSYM MCIERR_DRIVER_INTERNAL}
MCIERR_DRIVER_INTERNAL = MCIERR_BASE + 16;
{$EXTERNALSYM MCIERR_MISSING_PARAMETER}
MCIERR_MISSING_PARAMETER = MCIERR_BASE + 17;
{$EXTERNALSYM MCIERR_UNSUPPORTED_FUNCTION}
MCIERR_UNSUPPORTED_FUNCTION = MCIERR_BASE + 18;
{$EXTERNALSYM MCIERR_FILE_NOT_FOUND}
MCIERR_FILE_NOT_FOUND = MCIERR_BASE + 19;
{$EXTERNALSYM MCIERR_DEVICE_NOT_READY}
MCIERR_DEVICE_NOT_READY = MCIERR_BASE + 20;
{$EXTERNALSYM MCIERR_INTERNAL}
MCIERR_INTERNAL = MCIERR_BASE + 21;
{$EXTERNALSYM MCIERR_DRIVER}
MCIERR_DRIVER = MCIERR_BASE + 22;
{$EXTERNALSYM MCIERR_CANNOT_USE_ALL}
MCIERR_CANNOT_USE_ALL = MCIERR_BASE + 23;
{$EXTERNALSYM MCIERR_MULTIPLE}
MCIERR_MULTIPLE = MCIERR_BASE + 24;
{$EXTERNALSYM MCIERR_EXTENSION_NOT_FOUND}
MCIERR_EXTENSION_NOT_FOUND = MCIERR_BASE + 25;
{$EXTERNALSYM MCIERR_OUTOFRANGE}
MCIERR_OUTOFRANGE = MCIERR_BASE + 26;
{$EXTERNALSYM MCIERR_FLAGS_NOT_COMPATIBLE}
MCIERR_FLAGS_NOT_COMPATIBLE = MCIERR_BASE + 28;
{$EXTERNALSYM MCIERR_FILE_NOT_SAVED}
MCIERR_FILE_NOT_SAVED = MCIERR_BASE + 30;
{$EXTERNALSYM MCIERR_DEVICE_TYPE_REQUIRED}
MCIERR_DEVICE_TYPE_REQUIRED = MCIERR_BASE + 31;
{$EXTERNALSYM MCIERR_DEVICE_LOCKED}
MCIERR_DEVICE_LOCKED = MCIERR_BASE + 32;
{$EXTERNALSYM MCIERR_DUPLICATE_ALIAS}
MCIERR_DUPLICATE_ALIAS = MCIERR_BASE + 33;
{$EXTERNALSYM MCIERR_BAD_CONSTANT}
MCIERR_BAD_CONSTANT = MCIERR_BASE + 34;
{$EXTERNALSYM MCIERR_MUST_USE_SHAREABLE}
MCIERR_MUST_USE_SHAREABLE = MCIERR_BASE + 35;
{$EXTERNALSYM MCIERR_MISSING_DEVICE_NAME}
MCIERR_MISSING_DEVICE_NAME = MCIERR_BASE + 36;
{$EXTERNALSYM MCIERR_BAD_TIME_FORMAT}
MCIERR_BAD_TIME_FORMAT = MCIERR_BASE + 37;
{$EXTERNALSYM MCIERR_NO_CLOSING_QUOTE}
MCIERR_NO_CLOSING_QUOTE = MCIERR_BASE + 38;
{$EXTERNALSYM MCIERR_DUPLICATE_FLAGS}
MCIERR_DUPLICATE_FLAGS = MCIERR_BASE + 39;
{$EXTERNALSYM MCIERR_INVALID_FILE}
MCIERR_INVALID_FILE = MCIERR_BASE + 40;
{$EXTERNALSYM MCIERR_NULL_PARAMETER_BLOCK}
MCIERR_NULL_PARAMETER_BLOCK = MCIERR_BASE + 41;
{$EXTERNALSYM MCIERR_UNNAMED_RESOURCE}
MCIERR_UNNAMED_RESOURCE = MCIERR_BASE + 42;
{$EXTERNALSYM MCIERR_NEW_REQUIRES_ALIAS}
MCIERR_NEW_REQUIRES_ALIAS = MCIERR_BASE + 43;
{$EXTERNALSYM MCIERR_NOTIFY_ON_AUTO_OPEN}
MCIERR_NOTIFY_ON_AUTO_OPEN = MCIERR_BASE + 44;
{$EXTERNALSYM MCIERR_NO_ELEMENT_ALLOWED}
MCIERR_NO_ELEMENT_ALLOWED = MCIERR_BASE + 45;
{$EXTERNALSYM MCIERR_NONAPPLICABLE_FUNCTION}
MCIERR_NONAPPLICABLE_FUNCTION = MCIERR_BASE + 46;
{$EXTERNALSYM MCIERR_ILLEGAL_FOR_AUTO_OPEN}
MCIERR_ILLEGAL_FOR_AUTO_OPEN = MCIERR_BASE + 47;
{$EXTERNALSYM MCIERR_FILENAME_REQUIRED}
MCIERR_FILENAME_REQUIRED = MCIERR_BASE + 48;
{$EXTERNALSYM MCIERR_EXTRA_CHARACTERS}
MCIERR_EXTRA_CHARACTERS = MCIERR_BASE + 49;
{$EXTERNALSYM MCIERR_DEVICE_NOT_INSTALLED}
MCIERR_DEVICE_NOT_INSTALLED = MCIERR_BASE + 50;
{$EXTERNALSYM MCIERR_GET_CD}
MCIERR_GET_CD = MCIERR_BASE + 51;
{$EXTERNALSYM MCIERR_SET_CD}
MCIERR_SET_CD = MCIERR_BASE + 52;
{$EXTERNALSYM MCIERR_SET_DRIVE}
MCIERR_SET_DRIVE = MCIERR_BASE + 53;
{$EXTERNALSYM MCIERR_DEVICE_LENGTH}
MCIERR_DEVICE_LENGTH = MCIERR_BASE + 54;
{$EXTERNALSYM MCIERR_DEVICE_ORD_LENGTH}
MCIERR_DEVICE_ORD_LENGTH = MCIERR_BASE + 55;
{$EXTERNALSYM MCIERR_NO_INTEGER}
MCIERR_NO_INTEGER = MCIERR_BASE + 56;
const
{$EXTERNALSYM MCIERR_WAVE_OUTPUTSINUSE}
MCIERR_WAVE_OUTPUTSINUSE = MCIERR_BASE + 64;
{$EXTERNALSYM MCIERR_WAVE_SETOUTPUTINUSE}
MCIERR_WAVE_SETOUTPUTINUSE = MCIERR_BASE + 65;
{$EXTERNALSYM MCIERR_WAVE_INPUTSINUSE}
MCIERR_WAVE_INPUTSINUSE = MCIERR_BASE + 66;
{$EXTERNALSYM MCIERR_WAVE_SETINPUTINUSE}
MCIERR_WAVE_SETINPUTINUSE = MCIERR_BASE + 67;
{$EXTERNALSYM MCIERR_WAVE_OUTPUTUNSPECIFIED}
MCIERR_WAVE_OUTPUTUNSPECIFIED = MCIERR_BASE + 68;
{$EXTERNALSYM MCIERR_WAVE_INPUTUNSPECIFIED}
MCIERR_WAVE_INPUTUNSPECIFIED = MCIERR_BASE + 69;
{$EXTERNALSYM MCIERR_WAVE_OUTPUTSUNSUITABLE}
MCIERR_WAVE_OUTPUTSUNSUITABLE = MCIERR_BASE + 70;
{$EXTERNALSYM MCIERR_WAVE_SETOUTPUTUNSUITABLE}
MCIERR_WAVE_SETOUTPUTUNSUITABLE = MCIERR_BASE + 71;
{$EXTERNALSYM MCIERR_WAVE_INPUTSUNSUITABLE}
MCIERR_WAVE_INPUTSUNSUITABLE = MCIERR_BASE + 72;
{$EXTERNALSYM MCIERR_WAVE_SETINPUTUNSUITABLE}
MCIERR_WAVE_SETINPUTUNSUITABLE = MCIERR_BASE + 73;
{$EXTERNALSYM MCIERR_SEQ_DIV_INCOMPATIBLE}
MCIERR_SEQ_DIV_INCOMPATIBLE = MCIERR_BASE + 80;
{$EXTERNALSYM MCIERR_SEQ_PORT_INUSE}
MCIERR_SEQ_PORT_INUSE = MCIERR_BASE + 81;
{$EXTERNALSYM MCIERR_SEQ_PORT_NONEXISTENT}
MCIERR_SEQ_PORT_NONEXISTENT = MCIERR_BASE + 82;
{$EXTERNALSYM MCIERR_SEQ_PORT_MAPNODEVICE}
MCIERR_SEQ_PORT_MAPNODEVICE = MCIERR_BASE + 83;
{$EXTERNALSYM MCIERR_SEQ_PORT_MISCERROR}
MCIERR_SEQ_PORT_MISCERROR = MCIERR_BASE + 84;
{$EXTERNALSYM MCIERR_SEQ_TIMER}
MCIERR_SEQ_TIMER = MCIERR_BASE + 85;
{$EXTERNALSYM MCIERR_SEQ_PORTUNSPECIFIED}
MCIERR_SEQ_PORTUNSPECIFIED = MCIERR_BASE + 86;
{$EXTERNALSYM MCIERR_SEQ_NOMIDIPRESENT}
MCIERR_SEQ_NOMIDIPRESENT = MCIERR_BASE + 87;
Fay (2006-03-02 15:19:00) [9]2 tesseract © (02.03.06 10:22) [2]
> GetlogicalDrives.
И что это даст?
begin...end (2006-03-02 12:10:00) [10]> tesseract © (02.03.06 10:22) [2]
Кончать следует как раз Вам. Причём чем скорее, тем лучше.
tesseract (2006-03-02 10:22:00) [11]см.
GetlogicalDrives.
GetDriveType
> OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);bCoffeeHolderNotEmpty
> := SetCurrentDirectory('F:\');SetErrorMode(OldMode);
Кончайте уже.
clickmaker (2006-03-01 12:27:00) [12]OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
bCoffeeHolderNotEmpty := SetCurrentDirectory('F:\');
SetErrorMode(OldMode);
| |
