Как сделать калькулятор в Delphi?
Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Как Delphi реализует многоплатформенную разработку?
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
Проверка, доступно ли устройство без всяких окошек об ошибках
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Проверка, доступно ли устройство без всяких окошек об ошибках
Проверка, доступно ли устройство без всяких окошек об ошибках.
Зависимости: Windows
Автор: Mystic, mystic2000@newmail.ru, ICQ:125905046, Харьков
Copyright: Mystic
Дата: 6 марта 2003 г.
***************************************************** }
function IsDiskInDrive(Drive: string
): Boolean;
var
ErrMode: Cardinal;
VolName: array
[0..255] of
Char;
FS: array
[0..255] of
Char;
MaxComSize: Cardinal;
Flags: Cardinal;
begin
ErrMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
Result := GetVolumeInformation(PChar(Drive), VolName, SizeOf(VolName), nil
,
MaxComSize, Flags, FS, SizeOf(FS));
finally
SetErrorMode(ErrMode);
end
;
end
;
Пример использования:
ifnot
IsDiskInDriver('A:') then
raise
Exception.Create('А дискеты-то нет :(');