Как открыть папку по нажатию на кнопку

[qwerty55]

На форме находится кнопка, как открыть папку, которая находится рядом с самим ехе-шником? Нужно учесть что файл может быть запущен с разных компьютеров, следовательно путь меняется.
Я делал так:

ShellExecute(Form1.Handle,'explorer /select' , PChar(Application.ExeName + '\Data\') , nil, nil, SW_SHOW);

но это не работает

[evg_m]

extractfilepath(application.exename )+'Data'

[qwerty55]

ShellExecute(Form1.Handle,'explorer /select' , PChar(ExtractFilePath(Application.ExeName + 'Data')) , nil, nil, SW_SHOW);

вот так делаю, и не открывает. Где то в инете видел с помощью WinExec открытие делалось, но не могу найти теперь, может как-нибудь с помощью него?

[Dozent]

OpenDialog вам должен помочь

[tsar_]

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

[qwerty55]

как-то так?

OpenDialog1.Execute;
if OpenDialog1.Execute then
ShellExecute(Application.Handle, 'explorer /select' , 
PChar(ExtractFilePath(OpenDialog1.FileName)) , nil, nil, SW_SHOW);

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

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

там та же самая строка написана, что я писал выше:

Чтобы открыть папку, используйте один из следующих вызывов: ShellExecute(handle,nil,путь_для_па пки,nil,nil,SW_SHOWNORMAL);
или
ShellExecute(handle,'open',путь_для _папки,nil,nil,SW_SHOWNORMAL);

[evg_m]

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

ShellExecute(Form1.Handle,'explorer /select' , PChar(ExtractFilePath(Application.ExeName + 'Data')) , nil, nil, SW_SHOW);

вот так делаю, и не открывает. Где то в инете видел с помощью WinExec открытие делалось, но не могу найти теперь, может как-нибудь с помощью него?

PChar(ExtractFilePath(Application.E xeName + 'Data'))
это СТРОКА ПАРАМЕТРОВ запуска программы explorer

теперь читаем это и это

explorer здесь ожидает увидеть множество параметров разделенных пробелами. T.e. если в пути есть пробел то все последующее воспринимается как следующий параметр. И в качестве пути только то что до пробела.

QuotedStr( ExtractfilePath(application.exename) +'Data')

[tsar_]

там та же самая строка написана, что я писал выше:

Я видел, что там написано. Еще раз повторю: посмотрите, какое число возвращает ShellExecute. Ссылку я привел в первую очередь для того, чтоб вы увидели список возможных значений этой функции.

[artemavd]

О Господии...какие проблемы-то я не пойму??? Открыть папку, которая лежит рядом с экзешником, во время работы самой программы. Там всего одна строка кода:

uses
 ShellAPI;
...
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
 ShellExecute(Handle,'open',PWideChar(ExtractFilePath(Application.ExeName) + 'papka'),nil,nil,SW_SHOWNORMAL);
end;

Код рабочий! Проверил только что. Внимательно смотреть на второй параметр кое кому!

qwerty55 , видимо мое предупреждение, оставленное тебе в одной из твоих тем, не подействовало на тебя??? Последнее предупреждение: или начинаешь думать и вникать или я буду безжалостно грохать твои темы все!

[Dozent]

Да простит меня модер за оффтоп, хочу сказать
Просто народ тупой пошёл, только готовоё ждёт чтобы скопипастить думать ваше не хотят, да и вопросы правильно задавать не умеют...