Помогите запустить ярлык из Сетевого окружения

[fanscorpions]

Ярлык находится в папке с программой, когда запускаю ее, то при нажатии на Button1 ярлык должен запускаться. Но он соответственно не запускается))) Причем например ярлык из проигрывателя Light Alloy он спокойно запускает, а вот из Сетевого окружения нет. Может ярлык Сетевого окружения какой-то особенный?

Вот как прописал (предварительно добавил в uses ShellAPI):

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk', nil, nil, cmdShow);
end;

Примечание: название ярлыка пробывал по разному писать (qwerty, qwerty.lnk, qwerty.exe qwerty.exe.lnk

[eoln]

'D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk' - этот путь берётся с вашей машины. Посмотрите через сеть путь к своей программе и замените на правильный

[fanscorpions]

не понял))))))

Примечание: через Пуск\Выполнить тоже запускается, а с программы нет

[eoln]

  s:='D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.lnk'
  shellapi.ShellExecute(Application.Handle, 'open',   
  pChar(s),'',pChar(extractfilepath(s)),SW_SHOWDEFAULT );

Путь не указан

[fanscorpions]

Как это не указан??

'D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk'

а это что??? ярлык Light Alloy находящийся в этой же папке он запускает

[eoln]

ShellExecute(Handle,
'open',
'D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk',
nil,
nil,
cmdShow);

ShellExecute(Handle,
'open',
'D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk',
'',
pChar(extractfilepath('D:\Мои программы\Программы Delphi\Сетковключатель\qwerty.exe.l nk')),
SW_SHOWDEFAULT );

Найдите 10 отличий

[fanscorpions]

Да не в пути дело, просто другой ярлык находящийся в этой же папке он запускает, а qwerty.exe нет.