ShellExecute

[Fakov]

Есть ShellListView. К нему используется код, предназначенный для открытия выбранного файла в этом ЛистВьюв:

procedure TForm1.ShellListView1Click(Sender: TObject);
begin

 ShellExecute(Hinstance, 'open', PChar(ShellListView1.SelectedFolder.PathName) , nil, nil, SW_SHOWMAXIMIZED);
end;

Но! При даблклике на выбранном файле в ShellListView открывается моя же программа, вторая, но уже с этим файлом. Как сделать так чтобы ввыбранный файл открывался уже в открытой программе??? 0о

[BOBAH13]

ParamStr, ParamCount ( если паскаль ). В них проверяите, и проверяите так же уже запущенную копию, если нашли, копии (первой) шлете сообщение например через WM_COPYDATA где указываите файл (имя, параметр) получаемый при запуске копии в ParamStr

[Fakov]

BOBAH13, у меня делфи7.

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

[BOBAH13]

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

[Fakov]

уже связан с вашим ехе

Да, так оно и есть. Но ф-ция ShellExecute открывает указанный файл в новой программе, то есть запускает еще одну. А надо чтобы файл открывался в уже запущенной.

Поиск по форуму/рунету ничего не даёт уже на протяжении 3х часов, оч надеюсь на помощь((

[mihali4]

Не знаю... Попробовал у себя - никакого второго экземпляра программы не запускается...

[RUSlan48]

А если то приложение, кторое нужно открыть с помощью Delphi, тоже написано на Delphi..? Тогда и winexec, и shellexecute открывают его в том же окне...
как сделать чтобы открывалось в новом?

[mihali4]

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

При даблклике на выбранном файле в ShellListView открывается моя же программа

Пардон, вот что такое невнимательность...
Вам нужно:

procedure TForm1.ShellListView1Click(Sender: TObject);
begin
ShellExecute(Hinstance, nil, PChar(ShellListView1.SelectedFolder.PathName) , nil, nil, SW_SHOWMAXIMIZED);
end;

[Пепел Феникса]

mihali4, а как бы разницы нет.
nil='open'

научите вашу программу отслеживать свою копию(есть коды на форуме)
и передавать ей(уже запущенной)имя нового файла
ВОВАН, то не просто так сказал

[mihali4]

Сообщение от Пепел Феникса

mihali4, а как бы разницы нет.
nil='open'

Не знаю, не знаю...
Я привел процедуру из пробного проектика, у меня ничего такого "второго" не запускается...