Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Очень нужна помощь [D7, Win2k]


Checist [root] ©   (2003-02-07 10:38:00) 

Привет всем мастерам по дельфам. вот у меня такой вопрос : мне нужно было чтобы моя прога при запуске (метод например FormShow) определяла с какого диска она была запущена (то есть на коком из дисков находился .exe файл моей проги в момент запуска его же), ну типа A: или C: . Как бы это замутить, а?


Checist [root]   (2003-02-07 11:32:00) [1]

> uw > Не поможешь с вопросом про "Запись в файл" (ищи где-то рядом)? Прошу!


Checist [root]   (2003-02-07 11:29:00) [2]

> uw > Спасибо тебе огромное. Все бы так!


uw   (2003-02-07 11:23:00) [3]

Я понял ошибку.

var
ItIsWhatYouWant: String;
begin
ItIsWhatYouWant := Copy(ParamStr(0), 1, 2);
// Or
ItIsWhatYouWant := Copy(Application.ExeName, 1, 2);
end;


Checist [root]   (2003-02-07 11:22:00) [4]

Во-во и я о том же! :)


Внук   (2003-02-07 11:16:00) [5]

>>uw © (07.02.03 11:12)
Ну ты задачи задаешь, братан. Там же читать надо :)))


uw   (2003-02-07 11:12:00) [6]

И в случае ParamStr, и в случае Application.ExeName дави F1.


Checist [root]   (2003-02-07 11:08:00) [7]

Николай, а это вообще функция хотя бы. Мне то нужно чтобы ноа возращала им диска откуду запущена. Напишите, если можно, просто то, что я должен вписать в метод FormShow в Form1, если пусковой файл имеет имя Proga.exe. Плиз, дайте ответ!


Nikolai_S   (2003-02-07 11:00:00) [8]

Application.ExeName - Полное имя exe-файла. Диск - это первые 3 символа, если конечно не через сеть запущен...


Anatoly Podgoretsky   (2003-02-07 10:59:00) [9]

Место и диск разные понятия.
Если у тебя есть диски, то точно.
ParamStr хорошо описан в хелпе в большинстве книг, начиная с 80 годов.


Checist [root]   (2003-02-07 10:59:00) [10]

Игорь, ты еще здесь?


Anatoly Podgoretsky   (2003-02-07 10:46:00) [11]

Задача не имеет решения в современной действительности.


Checist [root]   (2003-02-07 10:46:00) [12]

Игорь хай тебе лично. Слушай, а это точно определит место откуда был запущен екзешник. Да, еще, а что такое ParamStr(0), а?


Игорь Шевченко   (2003-02-07 10:44:00) [13]

ExtractFileDrive(ParamStr(0))


Наверх

Титульная страница Поиск, карта сайта Написать письмо