T
tswhoney
Unregistered / Unconfirmed
GUEST, unregistred user!
请详细解释。
为何语句
procedure TForm1.Button1Click(Sender: TObject);
var
hDstWin:hwnd;
begin
hDstWin:=FindWindow('explorewclass',nil);
SetWindowPos(hDstWin,HWND_TOP,
100, // horizontal position
100, // vertical position
600, // width
600, // height
SWP_SHOWWINDOW // window-positioning options
);
end;
运行后没有任何显示?
为何语句
procedure TForm1.Button1Click(Sender: TObject);
var
hDstWin:hwnd;
begin
hDstWin:=FindWindow('explorewclass',nil);
SetWindowPos(hDstWin,HWND_TOP,
100, // horizontal position
100, // vertical position
600, // width
600, // height
SWP_SHOWWINDOW // window-positioning options
);
end;
运行后没有任何显示?