Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.14;
Скачать: CL | DM;

Вниз

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

 
Sensor   (2003-07-02 04:26) [0]

Народ, кто может подскажите, plz!
У меня трабла вот в чем:
В ходе работы программы создается меню с пунктами (Caption): (например) C:\winnt\system32\cmd.exe
C:\Winnt\explorer.exe
Мне надо, что бы при клике на однои из пунктов меню запустилась программа.
...
NewItem.OnClick := TrayStart;
...
procedure TForm1.TrayStart(Sender: TObject);
var i: integer;
begin
for i := 0 to TrayMenu.Items.Count - 1 do begin
ShellExecute(Application.MainForm.Handle, PChar("open"), PChar(Traymenu.Items[i].Caption), nil, nil, SW_ShowNormal);
end;
end;

Где TrayMenu типа TPopupMenu.

В этом случае при клике на пункте у меня ничего не происходит.
Пробовал по-разному - итог один и тот же, ничего не работает. Иногда выдавало ошибку про символ & в пункте меню, пробовал убирал убирать его спомощью StripHotKey, работало, но сразу запускались все программы, что были в меню (а надо только одну, на которую нажали) =).
Вобщем ничего не понимаю, что делаю неправильно. Программа уже доделана, только неработает самое главное =), помогите народ =)


 
Zergling ©   (2003-07-02 06:12) [1]

Traymenu.Items[i].Caption
замени на
(Sender as TMenuItem).Caption


 
Zergling ©   (2003-07-02 06:26) [2]

Так получше будет. В цикле ни чего крутить не надо. Подчеркивание символов в меню отруби.
if (Sender is TMenuItem) then
ShellExecute(Application.MainForm.Handle, PChar("open"), PChar((Sender as TMenuItem).Caption), nil, nil, SW_ShowNormal);



Страницы: 1 вся ветка

Текущий архив: 2003.07.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
14-44891
Knight
2003-06-25 20:26
2003.07.14
Преобразователь имен...


7-44931
Kooler
2003-05-04 01:43
2003.07.14
Именение уровня громкости через Делфи


1-44723
petr_v_a
2003-06-30 11:24
2003.07.14
Создание экземпляра фрейма в DesignTime


6-44784
ArtAlex
2003-05-08 08:34
2003.07.14
web-формы


7-44922
Злодей
2003-05-01 12:07
2003.07.14
Модем