VPF::on new window - Форум программистов

muratboy31

Дата 18.1.2010, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

it opens a window but not with the link from the main window !!! how can i open the link also...

Код


procedureTform1.NewWindowEvent(Sender: TObject; varppDisp: IDispatch; varCancel: WordBool);  
var  
PC: array[0..255] ofchar;  
S: String;  
begin  
WinExec(StrPCopy(PC, ParamStr(0)+' '+S), Sw_Show);  
ppDisp:=DesignTimeWB.DefaultDispatch;  
end;

thanks in advance

~FoX~

Дата 18.1.2010, 00:23 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Your try send link as parametr?
Wwhere S and PC give data?

Это сообщение отредактировал(а) ~FoX~ - 18.1.2010, 00:28

--------------------

…множественность никогда не следует полагать без необходимости…

muratboy31

Дата 18.1.2010, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

how would i get the link ?

~FoX~

Дата 18.1.2010, 00:33 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 5
Всего: 68

Ок....Understand....
Where variable S and PC get data?

--------------------

…множественность никогда не следует полагать без необходимости…

Данкинг

Дата 18.1.2010, 00:50 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

~FoX~ is right - there's no value to PC and S given. And by the way, why "WinExec" and not "ShellExecute"?

--------------------

There's nothing left but silent epitaphs.

muratboy31

Дата 18.1.2010, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 7.1.2010

Репутация: нет
Всего: нет

i also tried it with shellexecute, but it opened the internet explorer window... i want to open a new window from my exe with the link... this is the code i tried !!!

Код


procedureTform1.NewWindowEvent(Sender: TObject; varppDisp: IDispatch; varCancel: WordBool);  
var  
PC: array[0..255] ofchar;  
S: String;  
begin  
ShellExecute(Handle, 'open', PChar(StrPCopy(PC, ParamStr(0)+' '+S)), PChar(ComboBox1.Text), '', SW_SHOWNORMAL);  
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »