Запуск ярлыка подключения

[sapogan]

Доброго дня!
Я столкнулся с интересной проблемой: я запускаю в своей программе ярлык подключения к интернету, который я создал на рабочем столе. Если я уже подключен к интернету - то ярлык "щелкается", открывается окно с состоянием подключения. Если же я еще не подключался - ничего не происходит, а должно было появиться окно подключения с запросом логина и пароля.

Вот как я открываю ярлык:

ShellExecute(0, nil, pchar(labelededit4.text), nil, pchar(extractfilepath(labelededit4.text)), SW_SHOWNORMAL);

Пробовал запускать программу от имени администратора (Windows Se7en) - результат тот же.
Буду очень признателен за помощь.

[W0LF]

if tcpClient1.LocalHostAddr = '127.0.0.1' then
    ShellExecute(0, nil, pchar(labelededit4.text), nil, pchar(extractfilepath(labelededit4.text)), SW_SHOWNORMAL);
//если запуск у тебя правильный то - если инета нет, запуститься твой ярлык, а может и нет ;-)

Не забудь кинуть tcpClient

по ходу не запуститься, так как тип файла ярлык, а объект сам имеет странной название:
{BA126ADB-2166-11D1-B1D0-00805FC1270E}

Может из-за этого невозможно его запустить простым способом ?

[sapogan]

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

по ходу не запуститься, так как тип файла ярлык, а объект сам имеет странной название:
{BA126ADB-2166-11D1-B1D0-00805FC1270E}

Может из-за этого невозможно его запустить простым способом ?

В том-то и дело, что ярлык открывается! Но только тогда, когда я уже подключен к инету.

[raxp]

модем под рукой, решил проверить... да, действительно, если смотреть свойства ярлыка данного подключения с рабочего стола, то будет типа GUID {BA126ADB...
когда прописываешь абсолютный путь, запускается при любых условиях:

C:\Documents and Settings\All Users\Рабочий стол\интернет через АТС.lnk

как вы путь указываете?

[sapogan]

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

модем под рукой, решил проверить... да, действительно, если смотреть свойства ярлыка данного подключения с рабочего стола, то будет типа GUID {BA126ADB...
когда прописываешь абсолютный путь, запускается при любых условиях:

C:\Documents and Settings\All Users\Рабочий стол\интернет через АТС.lnk

как вы путь указываете?

путь к моему ярлыку - C:\Users\Яков\Desktop\Domolink.lnk

[Gerzs]

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

var
  HWND,CH:THandle;
begin
  WinExec('EXPLORER /select,full filename', SW_SHOWNORMAL); //Открываем проводник в нужной папке и подсвечиваем файл 

  Sleep(100); //Ждем пока откроется окно проводника

  HWND:=FindWindow(nil, 'Window title'); //Находим хэндл окна проводника 
  CH:=FindWindowEx(HWND, 0, 'SHELLDLL_DefView', nil); //Находим хэндл класса которому передаем сообщение
  CH:=FindWindowEx(CH, 0, 'DUIViewWndClassName', nil);
  CH:=FindWindowEx(CH, 0, 'DirectUIHWND', nil);
  CH:=FindWindowEx(CH, 0, 'CtrlNotifySink', nil);
  CH:=FindWindowEx(CH, 0, 'SysListView32', 'FolderView');

  PostMessage(CH, WM_KEYDOWN, VK_RETURN, 0); //Передает сообщение о нажатии энтера
  SendMessage(HWND,WM_SYSCOMMAND,SC_CLOSE,0); //Закрывает окно проводника   
end;

З.Ы. Может кому пригодится.

[Ltybcrf3]

Братцы выручайте есть программа с названием File.exe
Для настроек я всегда запускал её Ярлыком с таким путём:

"C:\Stub\File.exe" /config

Какой командой на делфи у меня хе5 можно запускать сразу File.exe без использования ярлыка!? но обязательно с атрибутом /config

[Stilet]

А те функции, что в теме выше описаны, не подошли?