Показать сообщение отдельно

Открытие ярлыка через Delphi
  #11  
Старый 12.06.2008, 22:21
Nick_Rimer
Новичок
Регистрация: 12.05.2008
Сообщений: 19
Провел на форуме:
28051

Репутация: 2
Exclamation Открытие ярлыка через Delphi

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

Путь к ярлыку: C:\Program Files\Borland\Delphi7\Projects\A
Содержимое: файл A.rc, файл brcc32.exe и файл brcc32.exe.lnk

В ярлыке все нужное уже сделано. При его запуске вручную двумя кликами файл A.rc компилируется, и получается ресурс A.res

То же самое необходимо теперь провернуть при помощи Delphi. Сделать такую строку:

Код:
ShellExecute(Handle, 'open', 'brcc32.exe', nil, s, SW_RESTORE);
можно. Работает, но смысл? Его нет..

А такая строка:

Код:
ShellExecute(Handle, 'open', 'brcc32.exe.lnk', nil, s, SW_RESTORE);
также никакого смысла не несет, потому что ярлык не запускается, следовательно ресурс не компилируется!!

При попытке:

Код:
case ShellExecute(Handle, 'open', 'brcc32.exe.lnk', nil, s, SW_RESTORE) of
2: ShowMessage('wrong');
end;
вылезает то самое сообщение 'wrong'..

кстати, s - это путь к папке типа PAnsiChar

Как же мне сделать так, чтобы я смог провернуть необходимую мне операцию??? Помогите, пожалуйста, очень прошу.. уже исчерпал все, что знал.. А надо!! Мне это строить и жить помогает!
 
Ответить с цитированием