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

Вниз

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

 
sensor   (2004-04-29 01:19) [0]

Как мне подружить Popupmenu и ShellExecute. Если программа содержит параметры (типа ping.exe 127.0.0.1) то ShellExecute не работает.
Исходник:
begin
if (Sender is TMenuItem) then
begin
ShellExecute(Form1.handle, nil, PChar(StripHotKey((Sender as TMenuItem).Caption)), nil, nil, SW_ShowNormal);
end;
end;

Параметры должны быть после имени файла в этой функции, но я не могу их туда запихнуть. Кто-нить может знает, как поступить?
Заранее пасиба


 
Юрий Зотов ©   (2004-04-29 10:14) [1]

Просто добавьте в командную строку через пробел. И as не нужно - Вы же уже сделали проверку is, так что Sender уже точно есть TMenuItem и можно пользоваться прямым приведением типа. Такой код получается короче и работает быстрее.

PChar(StripHotKey(TMenuItem(Sender).Caption) +" 127.0.0.1")


 
sensor   (2004-04-29 19:04) [2]

дело в том что я не могу приписать параметр, он у меня в самом меню в одном из содержимых, типа C:\Winnt\system32\ping.exe 127.0.0.1 . Они разные и параметр нельзя отделить, т.е. как то можно, но вот как, что б это заработало?


 
TUser ©   (2004-04-29 19:44) [3]

Читай хелп по ShellExecute. Там есть такой параметр, так и называется - Parametrs


 
Юрий Зотов ©   (2004-04-29 19:48) [4]

Непонятно. Если параметр УЖЕ сидит в Caption, так его и приписывать не нужно. Берете Caption, да и все.

Поясните, что же все-таки требуется, что где сидит и в чем проблема.


 
sensor   (2004-04-29 20:59) [5]


> Непонятно. Если параметр УЖЕ сидит в Caption, так его и
> приписывать не нужно. Берете Caption, да и все.
>
> Поясните, что же все-таки требуется, что где сидит и в чем
> проблема.


в том то и проблема, что все по идее должно работать, но не работает


 
VMcL ©   (2004-04-29 21:07) [6]

>>sensor  (29.04.04 20:59) [5]

Что по этому поводу глаголет интегрированный отладчик, а также GetLastError?


 
sensor   (2004-04-29 22:33) [7]

ничего не говорит, прога просто не запускает программу через ShellExecute при этом не говорит об ошибке.



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

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

Наверх




Память: 0.48 MB
Время: 0.033 c
1-1083512222
novill
2004-05-02 19:37
2004.05.16
Уважаемые мастаки, подскажите как внутри функции узнать ее имя?


3-1082699903
vlad_vv
2004-04-23 09:58
2004.05.16
IBQuery+IBUpdateSQL выдает "Update Failed"


4-1080470485
марсианин
2004-03-28 14:41
2004.05.16
Скроллинг колесиком в моих приложениях


3-1082171384
Урмат
2004-04-17 07:09
2004.05.16
MasterSource


1-1083011604
webmaster
2004-04-27 00:33
2004.05.16
определение координат при WordWrap