var
NowHandle:HWND;
winTitle:array [0..255] of char;
nowPos:integer;
begin
winexec('D:\Program Files\Internet Explorer\IEXPLORE.EXE',SW_NORMAL);
Nowhandle:=Getwindow(handle, GW_HWNDFIRST);
while NowHandle<>0 do begin
GetwindowText(Nowhandle,winTitle,255);
nowpos:=pos('',trim(string(wintitle)));
if NowPos<>0 then begin
setwindowpos(Nowhandle,HWND_TOP,0,0,500,500, SWP_SHOWWINDOW );
exit;
end
else begin
NowHandle:=GetWindow(NowHandle,GW_HWNDNEXT);
end;
end;
end;
var
NowHandle:HWND;
winTitle:array [0..255] of char;
nowPos:integer;
begin
//启动NOTEPAD
winexec('D:\Program Files\Internet Explorer\IEXPLORE.EXE',SW_NORMAL);
Nowhandle:=Getwindow(handle, GW_HWNDFIRST);
while NowHandle<>0 do begin
GetwindowText(Nowhandle,winTitle,255);
nowpos:=pos('',trim(string(wintitle)));
if NowPos<>0 then begin
setwindowpos(Nowhandle,HWND_TOP,0,0,500,500, SWP_SHOWWINDOW );
exit;
end
else begin
NowHandle:=GetWindow(NowHandle,GW_HWNDNEXT);
end;
end;
end;