ShellExecute + PopupMenu

← →
Sensor (2003-05-19 23:59) [0]

Жаль приходится писать повторно, но вдруг кто-нить заметит этот мессадж, у мя вот в чем трабла, кто может, помогите =):
у мя есть попап меню, в Item.Caption написано: C:\Winnt\system32\cmd.exe (это например), мне нужно, чтобы при клике на этот пункт меню, запустилась коммандная строка, вот исходник:
...
begin
ShellExecute(Application.Handle, PChar("open") , Pchar(TrayMenu.Items.Caption), nil, nil, SW_ShowNormal);
end
...
Вместо того, чтобы запустить по указанному в items.caption пути коммандную строку, открывается только путь (c:\winnt\system32). В чем трабла - непонятно, говорили, что для запуска программы можно не писать Pchar("open") , оставив nil, но тоже самое =(
Подскажите плиз!!! Че делать =)

← →
Юрий Зотов © (2003-05-20 00:27) [1]

В названии пункта меню виден подчеркнутый символ?

Скорее всего, да (потоиу что он появляется автоматически). Значит, в Caption вставлен символ &, а файла с именно таким именем нет - запускать нечего. Используйте функцию StripHotkey.

И, конечно, не Items.Caption, а Items[i].Caption

← →
Guerrillero © (2003-05-20 00:29) [2]

Pchar(TrayMenu.Items.Caption) - ошибка здесь, посмотри в отладчике
надо же PСhar(TMenuItem(Sender).Caption)

← →
Sensor (2003-05-20 08:08) [3]

To Юрий Зотов:
да, когда я первый раз запустил прогу, то она ругнулась на файл &C:\Winnt...\cmd.exe
А как это можно убрать? (и можно ли вообще), просто меню у меня создается в ходе работы программы.

To Guerrillero:
что так, что так, а результат один - ничего не работает =)

уже сказали - StripHotkey

Если нет необходимости в горячих клавишах, то проще установить св-во меню AutoHotkeys в maManual

ShellExecute + PopupMenu Найти похожие ветки