Очень нужна помощь

← →
Checist [root] (2003-02-07 10:38) [0]

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

← →
Игорь Шевченко © (2003-02-07 10:44) [1]

ExtractFileDrive(ParamStr(0))

← →
Anatoly Podgoretsky © (2003-02-07 10:46) [2]

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

← →
Checist [root] (2003-02-07 10:46) [3]

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

← →
Anatoly Podgoretsky © (2003-02-07 10:59) [4]

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

← →
Checist [root] (2003-02-07 10:59) [5]

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

← →
Nikolai_S © (2003-02-07 11:00) [6]

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

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

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

← →
uw © (2003-02-07 11:12) [8]

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

← →
Внук © (2003-02-07 11:16) [9]

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

← →
Checist [root] (2003-02-07 11:22) [10]

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

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

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

← →
Checist [root] (2003-02-07 11:29) [12]

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

← →
Checist [root] (2003-02-07 11:32) [13]

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

Очень нужна помощь Найти похожие ветки