Функция ShellExecute не работает :(

[zzzetka]

Здравствуйте умные люди!!!
Помогите начинающему программисту.
Написала небольшую программку на Делфи: диалоговое окно, в котором пользователь задает данные, а потом при нажатии кнопки Button идет обращение к другой программе base program full.exe. Нашла функцию ShellExecute, которую в тексте прописала так:

ShellExecute(Handle, 'open', '1\base program full.exe', nil, nil, sw_shownormal);

В общем-то она открывает программу base program full.exe на долю секунды, но потом опять все пропадает и эта программа конечно не запустилась.
Что не так? Где искать ошибку?
Спасибо!

[p51x]

Если прога открывается даже на секунду, то функция работает. А проблема у вас в рабочей папке целево проги...

[zzzetka]

Какая например?
В папке с целевой программой как обычно 4 файла Unit1 и 5 файлов Project2. И папка 1, в которой лежит программа base program full.exe со своими причендалами. Что не так?

[zzzetka]

Я переместила все файлы из папки "1" в папку с основной программой и все заработало! Но это не есть хорошо... получается слишком много разноплановых файлов в одной папке, заказчик будет недоволен

[OlegVE]

Здравствуйте
А если добавить в Ваш исходный текст GetCurrentDir...

ShellExecute(Handle, 'open', GetCurrentDir+'\1\base program full.exe', nil, nil, sw_shownormal);

А также посмотрите здесь
http://programmersforum.ru/showthread.php?t=12131
До свидания

[zzzetka]

Спасибо!!!

[zzzetka]

[QUOTE=OlegVE;802308]Здравствуйте
А если добавить в Ваш исходный текст GetCurrentDir...

ShellExecute(Handle, 'open', GetCurrentDir+'\1\base program full.exe', nil, nil, sw_shownormal);

А также посмотрите здесь
http://programmersforum.ru/showthread.php?t=12131
До свидания[/QUO

Говорит, что типы несовместны

[Прик]

ShellExecute(Handle, 'open', PChar(GetCurrentDir+'\1\base program full.exe'), nil, nil, sw_shownormal);