1。在應用程序內發(fā)送消息
調用perform(),sendmessage(),postmessage()函數(shù)，使消息常量的值為
WM USER+100~$7FFF

2。在應用程序之間發(fā)送消息
調用registerWindowMessage()函數(shù)，這個函數(shù)能夠確保每個應用程序使用一致的消息序號。RegisterWindowMessage()需要傳遞一個以null結束的字符串，并返回一個范圍從
$C000~$FFFFF的新的消息常量。在要發(fā)送消息的應用程序之間，每個應用程序都必須傳遞相同的字符串給RegisterWindowMessage(),而WINDOWS也會返回相同的消息常量，這可以確保給定的字符串返回整個系統(tǒng)中惟一的消息常量，這樣就可以放心地向所有窗口發(fā)送消息。

3。廣播消息
Twincontrol的派生對象可以調用broadcast()向它的子組件廣播一個消息，當需要向一組組件發(fā)送相同的消息時，便可以使用這種技術。
還可以利用sendmessage,postmessage實現(xiàn)廣播消息，此時只需要將hwnd參數(shù)設為HWND BROADCAST，它代表向所有的窗口發(fā)送消息。



2007-3-2 12:04:19    
 發(fā)表評語»»»    

 2007-7-7 13:48:03    ding

 
 2007-7-9 15:38:33    Perform()
V C L的P e r f o r m ( )方法適用于所有的T C o n t r o l派生對象。P e r f o r m ( )可以向任何一個窗體或控件發(fā)送
消息，只需要知道窗體或控件的實例。P e r f o r m ( )需要傳遞3個參數(shù)：消息標識符、w P a r a m和l P a r a m。
P e r f o r m ( )是這樣聲明的：
要給一個窗體或控件發(fā)送一個消息，可以參照下面的代碼：
調用了P e r f o n n ( )后，它要等消息得到處理后才返回。P e r f o r m ( )把3個參數(shù)組裝成T M e s s a g e記錄，
然后調用D i s p a t c h ( )方法把消息傳遞給Wi n d o w s的消息系統(tǒng)。

sendMessage()和PostMessage()
有的時候，可能需要向一個窗口發(fā)送一個消息，而又不知道這個窗口的實例。例如，可能要給一
個非D e l p h i的窗口發(fā)送一個消息，而只有這個窗口的句柄。幸運的是， Wi n d o w s有兩個A P I函數(shù)可以
實現(xiàn)這一點： S e n d M e s s a g e ( )和P o s t M e s s a g e ( )。這兩個函數(shù)幾乎是一樣的，它們的區(qū)別是： S e n d M e -
s s a g e ( )直接把一個消息發(fā)送給窗口過程，等消息被處理后才返回。P o s t M e s s a g e ( )只是把消息發(fā)送到消
息隊列，然后立即返回。
S e n d M e s s a g e ( )和P o s t M e s s a g e ( )是這樣聲明的：
hwnd是接收消息的窗口的句柄。
Msg是消息標識符。
wParam是3 2位的特定附加信息。
lParam是3 2位的特定附加信息。
注意盡管S e n d M e s s a g e ( )和P o s t M e s s a g e ( )調用方式完全一樣，但它們的返回值不一樣。
S e n d M e s s a g e ( )返回此消息被處理的結果值，而P o s t M e s s a g e ( )返回一個布爾值，表示消息是否已被放到消息隊列中。

用戶自定義的消息
有些情況下，一個應用程序可能需要向自己發(fā)送消息，或者在兩個應用程序之間發(fā)送消息。這時
你會有這樣一個問題：“為什么要發(fā)送消息而不是直接調用一個過程”。這個問題問得好，有這樣幾個
答案。首先，消息可以讓你不需要知道接收者的確切類型。同時，消息可以有選擇地處理。如果接收
者對消息沒有做任何處理，不會造成任何后果。最后，消息可以廣播給多個接收者，而要同時調用幾
個過程則比較困難。
1. 在應用程序內發(fā)送消息
一個應用程序要發(fā)送消息給自己是很容易的，只要調用P e r f o r m ( )、S e n d M e s s a g e ( )或P o s t M e s s a g e ( )，
并且使消息常量的值為WM_USER + 100到$ 7 F F F (這個范圍是Wi n d o w s為用戶自定義消息保留的)
const
  SX_MYMESSAGE = WM_USER + 100;

BEGIN
  SOMEFORM.PERFORM(SX_MYMESSAGE, 0, 0);
//OR
SENDMESSAGE(SOMEFORM.HANDLE, SX_MYMESSAGE, 0, 0);
//OR
POSTMESSAGE(SOMEFORM.HANDLE, SX_MYMESSAGE, 0, 0);
.
.
.
然后聲明和定義一個普通的消息處理過程來處理S X _ M Y M E S S A G E消息：
TFORM1=CLASS(TFORM)
.
.
.
PRIVATE
  PROCEDURE SXMYMESSAGE(VAR MSG: TMESSAGE); MESSAGE SX_MYMESSAGE;
END;

PROCEDURE TFORM1.SXMYMESSAGE(VAR MSG: TMESSAGE);
BEGIN
  SHOWMESSAGE(‘HELLO‘);
END;

正如你看到的那樣，處理用戶自定義的消息與處理標準的Wi n d o w s消息幾乎沒有什么不同。真正
的關鍵在于：必須聲明一個消息常量，它的值必須從WM_USER + 100開始。最好為自定義的消息起
一個表明它的用途的名字。
注意除非應用程序已經(jīng)建立了相應的消息處理過程，否則，不要發(fā)送自定義的消息。由于每
個窗口都可以獨立地定義消息常量的值，因此，發(fā)送自定義消息具有潛在的危險，除非在接受
處理時非常地小心。

 
 2007-7-9 16:15:04    //在發(fā)送數(shù)據(jù)窗體中
var
  ds: TCopyDataStruct;
  hd: THandle;
  begin
    ds.cbData := Length(mmContent.Lines.Text) + 1;
    GetMem(ds.lpData, ds.cbData); //為傳遞的數(shù)據(jù)區(qū)分配內存
    StrCopy(ds.lpData, PChar(mmContent.Lines.Text));
    Hd := FindWindow(nil, ‘函數(shù)庫‘); // 獲得接受窗口的句柄
    if Hd <> 0 then
      SendMessage(Hd, WM_COPYDATA, Handle,
        Cardinal(@ds)); // 發(fā)送WM_COPYDATA消息
    FreeMem(ds.lpData); //釋放資源
  end

 
 2007-7-9 16:23:23    //截取最小(大)化消息
 procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

  procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
  begin
    if (Msg.CmdType = SC_MINIMIZE) or
       (Msg.CmdType = SC_MAXIMIZE) then
      MessageBeep(0);
    DefaultHandler(Msg);
  end;

 
 2007-9-28 17:20:09    WIN32應用程序進行交互的最簡單的方法WIN32應用程序進行交互的最簡單的方法

WM_COPYDATA消息

TcopyDataStruct結構類型指針
dwData 是一個32位的附加參數(shù)
cbData 表示要傳遞的數(shù)據(jù)區(qū)的大小
lpData 表示要傳遞的數(shù)據(jù)區(qū)的指針

SendData程序向GetData程序發(fā)送消息，并傳遞edit1中的字符串；GetData在收到消息后，把SendData發(fā)送的字符串接受下來，并顯示在相應的edit1中

SendData程序：
……
var
  Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: Tobject);
var
  ds: TCopyDataStruct;
  hd: Thandle;
begin
  ds.cbData := Length (Edit1.Text) + 1;
  GetMem (ds.lpData, ds.cbData ); //為傳遞的數(shù)據(jù)區(qū)分配內存
  StrCopy (ds.lpData, Pchar (Edit1.Text));
  Hd := FindWindow (nil, ‘Form2‘); // 獲得接受窗口的句柄
  if Hd <> 0 then
   SendMessage (Hd, WM_COPYDATA, Handle, Cardinal(@ds)) // 發(fā)送WM_COPYDATA消息
  else
    ShowMessage (‘目標窗口沒找到！‘);
  FreeMem (ds.lpData); //釋放資源
end;

StrCopy(Dest,Source :pChar):Pchar;
字符串拷貝。函數(shù)不進行長度檢查，且目的區(qū)域的大小不小于length(source)+1個字符。如果希望進行長度檢查，請使用strlcopy()函數(shù)。

GetData程序：
TForm2 = class(Tform)
  Edit1: Tedit;
private
  { Private declarations }
public
  { Public declarations }
  procedure Mymessage(var t:TWmCopyData);message WM_COPYDATA;
end;

var
  Form2: TForm2;

implementation

procedure TForm2.Mymessage(var t:TWmCopyData);
begin
  Edit1.text:=StrPas(t.CopyDataStruct^.lpData);//接受數(shù)據(jù)并顯示。
end;

StrPas(Str:Pchar):String;
將以0結束（null結束）的字符串str轉換成pascal格式的字符串。

 
 2007-9-30 14:44:14    全局原子Win32系統(tǒng)中，為了實現(xiàn)信息共享，系統(tǒng)維護了一張全局原子表。每個原子中存放了一些共享數(shù)據(jù)。關于對原子的操作，有一組專門的API函數(shù)
GlobalAddAtom 在表中增加全局原子
GlobalDeleteAtom 在表中刪除全局原子
GlobalFindAtom 在表中搜索全局原子
GlobalGetAtomName 從表中獲取全局原子

program Pvdde;
uses
  Forms,shellapi,Windows,dialogs,dde in ‘dde.pas‘ {Form1};

{$R *.RES}

begin
  if GlobalFindAtom(Pchar(‘PDDE_IS_RUNNING‘)) = 0 then  //避免二次啟動
  begin
    K:=GlobalAddAtom(Pchar(‘PDDE_IS_RUNNING‘));
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end
  else
  begin
    //傳遞二次啟動時的參數(shù)到第一個實例
    H := FindWindow(Pchar(‘TForm1‘), Pchar(‘資料保密 嚴禁外傳‘));
    if ParamCount > 0 then
    begin
      L := GlobalAddAtom(Pchar(ParamStr(1)));
      if H<>0 then
      SendMessage(H, WM_MYMESSAGE, 0, L);
      { 傳遞原子句柄 }
      GlobalDeleteAtom(L); { 使用后釋放 }
    end;
    Application.Terminate;
  end;
end;

end.

在相應的窗口單元dde.pas增加對自定義消息WM_MYMESSAGE的處理：
procedure TForm1.MyMessage(var T:Tmessage);
{對 WM_MYMESSAGE消息進行處理 }
var
  P: Array [0..255] of char;
begin
  GlobalGetAtomName(T.Lparam, P,255); { 接受數(shù)據(jù)到p數(shù)組中 }
  ...
end;

使用存儲映象文件
　

這種方法相對較復雜一些。

當Win95與Winows Nt向內存中裝載文件時，使用了特殊的全局內存區(qū)。在該區(qū)域內，應用程序的虛擬內存地址和文件中的相應位置一一對應。由于所有進程共享了一個用于存儲映象文件的全局內存區(qū)域，因而當兩個進程裝載相同模塊（應用程序或DLL文件）時，它們實際可以在內存‘">發(fā)現(xiàn)違禁文字，本頁之后內容忽