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

Вниз

выбор пути и запуск прг и этого пути   Найти похожие ветки 

 
Любитель   (2006-10-25 09:57) [0]

подскажите функцию как сделать что-бы пользыватель мог выбирать путь к программе и этот путь потом прописывался на нажатии кнопки для запуска этой программы

для выбора использую диалог и для запуска программы ShellExecute
как это связать вместе


 
Elen ©   (2006-10-25 10:09) [1]


> Любитель

Например так :

if  OpenDialog1.Execute  then
ShellExecute(Handle,"open",pchar(OpenDialog1.FileName),"","",SW_SHOWDEFAULT);


 
Palladin ©   (2006-10-25 10:11) [2]

сам же все описал... осталось только с клавиатурой поработать... в чем конкретно затруднение?


 
Любитель   (2006-10-25 10:17) [3]

Не мне надо выбрать директория и передать ее на события нажатии кнопки

Elen[1] в этом случаи просто выбираеться и запускаеться прога
а мне надо может ее будет запустить потом


 
Elen ©   (2006-10-25 10:25) [4]


> Любитель

Сначала  OpenDialog1.Execute... Где то в  потом ShellExecute(Handle,"open",pchar(OpenDialog1.FileName),"","",SW_SHOWDEFAUL T);


 
Любитель   (2006-10-25 10:29) [5]

А можно это поместить в переменную string
если надо выбирать несколько директорий что бы не помещать несколько диалогов


 
Elen ©   (2006-10-25 10:30) [6]


> А можно это поместить в переменную string

OpenDialog1.Execute; Stroka:=OpenDialog1.FileName;


 
Любитель   (2006-10-25 10:40) [7]

Спасиба Elen



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

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

Наверх




Память: 0.45 MB
Время: 0.051 c
2-1161943090
markers
2006-10-27 13:58
2006.11.12
Как проверить существования объекта?


2-1161619167
AlexanderMS
2006-10-23 19:59
2006.11.12
Расплывчатые иконки, и как с ними бороться.


8-1144338190
QuickFinder
2006-04-06 19:43
2006.11.12
TShockwaveFlash и его свойство Align


15-1161775535
Сергиус
2006-10-25 15:25
2006.11.12
настройка EDGE


2-1161686802
Krants
2006-10-24 14:46
2006.11.12
Вызвать Hint





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский