Wysyłanie i odczyt danych PostMessage();

0

Witam,

potrzebuje wysłać z jednego programu do drugiego bit. chce do tego wykorzystać PostMessage.

Mam już uchwyt okna, jednak jak za pomocą PostMessage wysłać bit (1) do drugiego programu i w tym drugim programie wpisać odebrany znak do edit1?

Pozdrawiam.

EDIT:

Znalazłem coś takiego, ale nie bardzo wiem jak to wykorzystać http://www.tek-tips.com/viewthread.cfm?qid=1181059&page=1

0

tak proste ze az wstyd.. przeiciez sendmessage (lub postmessage) mozesz wyslac 2 integer'y (wparam i lparam).
a bit to 0 lub 1 wiec tez liczba.

  private
    { Private declarations }
    procedure BitPrzyszedl(var msg:TMessage);  message WM_USER+1;
{...}
procedure TForm1.BitPrzyszedl(var msg: TMessage);
begin
  Edit1.Text:=IntToStr(msg.LParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
var bit:integer;
begin
  bit:=1;
  SendMessage(Handle, WM_USER+1, 0,bit);
end;
0

Też to z pozoru się wydawało łatwe. Ale WIELKIE dzięki! Mam nadzieję, że innym się przyda.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0