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