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...