Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Вниз

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

 
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]

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


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

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

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



Страницы: 1 вся ветка

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

Наверх





Память: 0.46 MB
Время: 0.009 c
1-52862
France
2003-02-07 17:20
2003.02.17
Application.ProcessMessages


6-53158
Natalia
2002-12-24 13:34
2003.02.17
Icq


14-53218

2003-01-31 19:42
2003.02.17
Королевство Delphi


1-52959
Михаил
2003-02-09 22:24
2003.02.17
Обход фаервола!


1-53050
Альф
2003-02-06 15:20
2003.02.17
Мастера - подскажите о raise ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский