[JunkieBeat]

Мне надо открыть из одной программы другую,и желательно что бы сама находила директорию,пробовал через WinExec,блокнот открыл,а мою нет)

[Bargest]

и желательно что бы сама находила директорию

Прежде, чем озвучивать задачу, стоит хоть немного подумать.
Вот есть у меня компьютер. На нем есть диск. На нем раздел C:\. На нем 100 папок. В каждой еще 100 папок, в каждой еще 100 папок, в каждой еще 100 папок, <...> папок.
Надо запустить файл HelloWorld.exe. В 20 произвольных папках лежат разные файлы с таким именем.
Внимание, два вопроса:
1) Ты действительно хочешь, чтобы программа обыскала все тысячи/миллионы папок в системе, чтобы найти этот HelloWorld?
2) Как планируешь отличать, какой именно HelloWorld надо запускать?

[JunkieBeat]

согласен было глупо))
теперь другая проблема делаю захват директории запущенного приложения
и вызываю из той же папки второе приложение но чо то туплю с типами

Код:

procedure TForm1.N5Click(Sender: TObject);
var
  MyDir:string;
begin
  MyDir:=ExtractFilePath(ParamStr(0));
if FileExists(MyDir+'\Тестовик.exe') then
begin
MyDir:=MyDir+'\Тестовик.exe';
WinExec(MyDir,SW_SHOWNORMAL);
end
else
begin
  ShowMessage('Программа не найдена');
end;

end;

ошибка с типами хз как преобразовать
в строчке
WinExec(MyDir,SW_SHOWNORMAL);
[Error] Unit1.pas(262): Incompatible types: 'String' and 'PAnsiChar'

[Facepalm]

А справку почитать?

[Alegun]

А если так

Код:

ShellExecute(0, nil, PChar(MyDir+'\Тестовик.exe'),nil,nil,SW_SHOWNORMAL);

[JunkieBeat]

Сообщение от Facepalm

А справку почитать?

какой смысл вообще так отвечать? не знаешь как помочь молчи вообще

Сообщение от Alegun

А если так

Код:

ShellExecute(0, nil, PChar(MyDir+'\Тестовик.exe'),nil,nil,SW_SHOWNORMAL);

Неа не включает,окно чутка помигает как будто бы грузит что то не нет.
Попробовал вот так

Код:

WinExec(PChar(MyDir+'\Тестовик.exe'),SW_SHOWNORMAL);

Тот же эффект окно помигивает,но не запускает.

Все разобрался,просто я сглупил и зачем то везде писал "\Тестовик.exe" слэш вообще не к чему тут)))))
Вот так все работает
WinExec(PChar(MyDir+'Тестовик.exe'),SW_SHOWNORMAL) ;

[Facepalm]

Сообщение от JunkieBeat

какой смысл вообще так отвечать? не знаешь как помочь молчи вообще

Твоя проблемма настолько тупа, что ответить нормально - помочь идиоту.