Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
При стремлении сохранить бюджет не в ущерб первоклассности совокупления, выбирайте соблазнительных проституток на страницах интим сайта prostitutkiulyanovskaboom.com. Здесь подобраны честные предложения девушек всяких возрастов. | Безусловно возьмите свои поиски шлюх с наилучшого перечня на сайте prostitutki-habarovska.party, ведь вам наверное хотелось бы удовлетворить свои элитные желания с симпатичными проститутками.
Delphi - База Знаний: Как можно проверить, запущена программа с локального диска или из сети
var
DriveType: DWORD; //TDriveType
DriveChar: string;
begin
DriveChar:=ExtractFileDrive(ParamStr(0));
DriveType:=GetDriveType(PChar(DriveChar + ''));
case driveType of
dtFixed: ShowMessage('Fixed ' + DriveChar + '');
DRIVE_REMOTE: ShowMessage('NetWork ' + DriveChar + '');
end;
end;
{
TDriveType Value Meaning
0 The drive type cannot be determined.
1 The root directory does not exist.
DRIVE_REMOVABLE The drive can be removed from the drive.
DRIVE_FIXED The disk cannot be removed from the drive.
DRIVE_REMOTE The drive is a remote (network) drive.
DRIVE_CDROM The drive is a CD-ROM drive.
DRIVE_RAMDISK The drive is a RAM disk.
}
