Вверх ↑
Ответов: 7
Рейтинг: 0
#1: 2017-04-04 13:59:27 ЛС | профиль | цитата
Подскажите как правильно составить схему для запуска (portable.exe) программ.
Вроде прописываю пути к директории с программой но диалог при запуске выдает последнею папку из которой запускались какие либо программы. (выбираем вручную - прога не стартует)
Если ставлю запуск с кнопки (в WinExec) прописываю директорию и полный путь -- прога не стартует.
Make(delphi)
ver(4.05 build 186)
Add(MainForm,12362884,224,126)
{
Width=663
Height=463
Caption="Запуск файлов"
Position=1
Point(Handle)
}
Add(WinExec,429677,455,210)
{
FileName=""C:\Alex\txt\in2\1.bat""
WorkingDir="C:\Alex\txt\in2\"
Mode=3
Point(doConsoleExec)
}
Add(BitBtn,6961564,273,210)
{
Left=20
Top=34
Width=275
Height=87
Color=-16777200
FrameColor=0
Caption="Запуск Пр-1"
link(onClick,12185894:doExecute,[(335,216)(335,213)])
}
Add(ODialog,12185894,364,207)
{
StartDir="C:\Alex\txt\in2"
FileName="1"
Point(doStartDir)
Point(doFileName)
link(onExecute,429677:doShellExec,[(426,213)(426,223)])
}
Add(WinExec,13198414,417,260)
{
FileName=""C:\Alex\txt\in2\1.exe""
WorkingDir="C:\Alex\txt\in2\"
Mode=3
Point(doConsoleExec)
}
Add(BitBtn,6764656,277,267)
{
Left=20
Top=144
Width=275
Height=87
Color=-16777200
FrameColor=0
Caption="Запуск Пр-1"
link(onClick,13198414:doExec,[(363,273)(363,266)])
}
Add(WinExec,1642997,417,316)
{
FileName="C:\Alex\txt\in2\1.exe"
WorkingDir="C:\Alex\txt\in2\"
Mode=3
Point(doConsoleExec)
}
Add(BitBtn,7441680,277,323)
{
Left=20
Top=249
Width=275
Height=87
Color=-16777200
FrameColor=0
Caption="Запуск Пр-1"
link(onClick,1642997:doShellExec,[])
}
карма: 1

0
Редактировалось 1 раз(а), последний 2017-04-04 14:00:09