[ApplicatiOn]

Как можно найти исполняемый файл и папку в которой он лежит? например: opera.exe, calc.exe, project.exe и др...

[Thrasher]

Поиском рекурсивым сделать это можно.

[ApplicatiOn]

рекурсивным? это как?

[:S.p.a.m.]

Я делал проще.
showmessage(ExtractFileName(Application.ExeName));

[0nni]

Код:

caption := ParamStr(0);

Код:

var buff : array[0..256] of char;
begin
  GetModuleFileName(HInstance, @buff, 256);
  Caption := buff;

[ApplicatiOn]

Сообщение от :S.p.a.m.

Я делал проще.
showmessage(ExtractFileName(Application.ExeName));

ммм, зачем мне это? я говорю мне нужно найти нужный исполняемый файл, а не свою программу...

2Onni


не совсем понял что там что...

[0nni]

А не понял вопроса, для большинства программ такую информацию можно найти в реестре. Можно пробежать по меню пуск-программы, проанализировать ссылки на .exe

[lmikle]

См. FindExecutable.

[ApplicatiOn]

Сообщение от 0nni

А не понял вопроса, для большинства программ такую информацию можно найти в реестре. Можно пробежать по меню пуск-программы, проанализировать ссылки на .exe

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

зы понял...