Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Вниз

Как узнать в каком каталоге находится моя прога? 


Zool   (2002-02-12 17:34) [0]

Здравствуйте уважаемые програмисты! Просвитите чайника! У меня возникло сразу два вопроса:
1. Как узнать в каком каталоге находится моя прога?
2. Как узнать имя CD-Rom"a компа?
Зарание огромное спасибо!



McSimm   (2002-02-12 17:43) [1]

1. ExtractFilePath(Application.Exename);
2. GetVolumeInformation



Fedorenko Igor   (2002-02-12 17:45) [2]

1)
var
ExePath : string;
initialization
ExePath := ExtractFilePath( paramstr( 0 ) );
2) Например
var
Drive : PChar;
Drive := "G:\";
if GetDriveType( Drive ) = DRIVE_CDROM then ...



McSimm   (2002-02-12 17:49) [3]

Возможно неправильно понял второй вопрос.
Если нужно найти БУКВУ первого CD-Rom, то:
- перечень всех дисков можно получить с помощью:
GetLogicalDrives или GetLogicalDriveStrings
- проверить тип :
GetDriveType



Vitek   (2002-02-13 13:10) [4]

А как проверить сетевой диск - CD-room или нет?



McSimm   (2002-02-13 13:16) [5]

Если не ошибаюсь, - никак. Сетевой диск это логическое устройтво клиента сетей. Физически это может быть папка, физическое устройство, в том числе и CD-ROM. Но со стороны клиента этих различий нет.



Zool   (2002-02-14 08:16) [6]

Thanks!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.018 c
4-9352            BH                    2002-01-04 09:00  2002.03.04  
Перемещение файлов и папок


3-9052            sgs                   2002-02-06 12:13  2002.03.04  
Был бы очень рад если кто помог бы с запросом...


3-9068            Questioner            2002-02-06 15:23  2002.03.04  
Люди уверен, что все каким-либо образом решали для себя эту задачу.


3-9047            iXANiA                2002-02-05 18:44  2002.03.04  
Как отфильтровать таблицу...


1-9133            f0rm                  2002-02-17 00:01  2002.03.04  
Вытаскивание e-mail ов