關於WinExec的問題?

2022-04-15 01:26:14 字數 1243 閱讀 8413

關於winexec的問題? delphi / windows sdk/api

下面為a程式呼叫b程式,彈出b的登陸介面,自動填入使用者名稱密碼來自動登陸b  

procedure   tform1.image1click(sender:   tobject);  

var  

fhwnd   :   thandle;  

t1hwnd:thandle;  

t2hwnd:   thandle;  

bhwnd:   thandle;  

begin  

winexec(pchar('c:\b.exe'),0)   ;  

//run執行到這裡為什麼彈出了登陸介面,等待使用者響應?  

為什麼不直接執行下面的自動填使用者名稱密碼登陸操作??  

//但是奇怪的是用分步執行,就能執行下去,並自動登陸!!  

fhwnd:=findwindow(nil,'系統登入');  

if   fhwnd>0   then  

begin  

t1hwnd:=findwindowex(fhwnd,0,'tcombobox',nil);  

t2hwnd:=findwindowex(fhwnd,0,'tedit',nil);  

bhwnd:=findwindowex(fhwnd,0,'tbitbtn',nil);  

if   t1hwnd>0   then  

sendmessage(t1hwnd,   wm_settext,   0,   integer(pchar(user)));  

if   t2hwnd>0   then  

sendmessage(t2hwnd,   wm_settext,   0,   integer(pchar(pwd)));  

if   bhwnd>0   then  

sendmessage(bhwnd,   bm_click,   0,   0);  

end;  

end;  

情請高手指點!

我頂你個肺

that   sound   great!

very   good  

我呼叫一般的兩層程式,問題是不存在的  

呼叫乙個三層的程式,就出現上述問題  

延時1秒後,問題解決  

thank   you!   非常感謝老妖的再次指點!  

good

winexec 函式的引數說明 c

sw show表示以當前大小啟用執行後的程式視窗並顯示它。第二個引數是控制程式主視窗的顯示方式 第二個引數可能的取值為 sw hide 程式啟動後隱藏主視窗 sw maximize 最大化執行 sw minimize 最小化執行 sw restore 將最大化或最小化的視窗恢復正常 sw show ...

關於績效的問題

我是北京一家軟體開發公司的部門經理,公司是做安全領域的產品研發的。我們公司的績效政策是這樣的,所有人按工資的檔次每月扣掉一定比例,每半 年考核一次,考核的目標是公司業績的完成情況,半年後,將扣掉的總數按一定的倍數發話,最高兩倍,最少零倍,如果沒有達到業績,所有被扣掉的就都沒了,達 到了業績,只有一少...

關於OpenFileDialog的問題

我最近在寫個圖書管理系統,出了openfiledialog的問題,在網上找了很久,在csdn裡也盡是用委派的方法,但事實上,我採用它,一點效果都沒有.想了許久,最後還是去問了老師,在老師的幫助下搞定了 thread managebookthread new thread new threadstar...