VPF::Открыть одно приложение делфи через другое

pavelv

Дата 25.4.2008, 07:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Пробовал на Delphi5, затем на Delphi7 ситуация одна.
Код отправителя:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  h : THandle;
  msg : pchar;
begin
  h := FindWindow('TForm1','');
  msg := 'Кирова';
  SendMessage(h, WM_USER+1, WParam(msg), 0);
end;

Код получателя:

Код


  protected
    procedure WMUSER1(var Msg:TMessage); message WM_USER+1;

procedure TForm1.WMUser1(var Msg:TMessage);
begin
 Edit1.Text:=Pchar(Msg.WParam);
end;

Но есть одна особенность. Если при отправке взять вот эти данные: IntToStr(WParam(msg)) -- понятно будут какие-то цифры, и сделать в отправителе Pchar(IntToStr(WParam(msg))), то получим строку для отправки. Если в получателе взять IntToStr(Msg.WParam) то получаются теже цифры, то при переводе в буквы уже загагулины вылазят. Похоже на косяки с кодировкой, но слабо понимаю как так в одном приложении всё пучком, а в другом нет.

Poseidon

Дата 25.4.2008, 08:36 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Я же тебе выше написал как прямо в Edit отправлять текст...

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

pavelv

Дата 25.4.2008, 13:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Это всё понял, спасибо smile

. Я бы и числами название передал закодировав, теперь просто интересно как строку передать таким образом. Тоесть если у вас работает просьба выкинуть сюда два exe-шника(ибо исходники одни), а я на своей тачке затестирую...Сомневаюсь, что что-нибудь поменяется, но иногда такое видишь...

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