轉貼收藏 兩個程式之間傳送訊息

2021-04-02 02:15:15 字數 1035 閱讀 9758

pb:string ls_classname,ls_windowname

ulong ll_winhandle

uint  li_result

setnull(ls_classname)

ls_windowname ="form1" //delphi程式視窗名稱

ll_winhandle = findwindow(ls_classname,ls_windowname)

if ll_winhandle>0 then //撥通

li_result = registerwindowmessage('1111') //註冊系統訊息,返回系統唯一訊息號

post(ll_winhandle,li_result,0,0)

messagebox("提示","知道")

else

messagebox("提示","沒有找到")

end if

delphi:

宣告部分:

private

msg: longint;

hwndc : thandle;

protected

procedure wndproc(var message: tmessage); override;

procedure tform1.formcreate(sender: tobject);

begin

msg := registerwindowmessage('1111');//返回系統唯一訊息號,1111為自定義訊息內容

self.bringtofront;

end;

procedure tform1.wndproc(var message: tmessage);

varmypt:tpoint;

s:string;

begin

if message.msg = msg then begin

showmessage(inttostr(message.lparam) );

end ;

inherited;

end;

兩個彙編小程式

開發環境為emu8086!1 begin name run nian project to check if it s run nian.propmt macro ppt 定義輸出巨集 mov dx,offset ppt mov ah,09h int 21h endm stack segment d...

分享兩個小程式

小編也不知道大家能不能用的到,我只是把我學到的知識分享出來,有需要的可以看一下。python本身就是一個不斷更新改進的語言,不存在抄襲,有需要就可以拿過來用,在用的過程中,你發現可以用另外一種方法把它實現,就可以把 做進一步的優化,然後分享出來,這樣python會變的越來越實用。今天心情不好,分享兩...

Platform Builder實踐之兩個要點

關於登錄檔在前面的文章中已經介紹過了,這裡只講述如何實現永久儲存登錄檔資料。登錄檔型別分為基於物件儲存的登錄檔和基於hive的登錄檔,在定製核心的時候只能選擇其中一種。從理論上講這兩種登錄檔都能夠實現永久儲存登錄檔數 據,但是採用不同的型別會影響ce的啟動順序和啟動速度,還會影響記憶體的使用量。我還...

py程式 兩個判斷迴文的程式

a input 輸入一段話 b int len a 算出這段話的字數 c int len a 2 print b if b 2 and a 0 a 1 print 是迴文 quit elif b 3 and a 0 a 1 print 是迴文 quit elif b c 2 and a c a c ...

Scala 之 合併兩個map

開發中遇到需求 合併兩個map集合物件 將兩個對應key的值累加 先說解決方案 map1 map2 這特麼什麼鬼 首先 scala中現有的合併集合操作不能滿足這個需求 注意合併後的結果a的g02的值其實是被覆蓋掉了。然後 說說那個表示式中 a b 這部分是什麼鬼。這個其實是scala簡化的foldl...