应用程序里面调用另外一个exe程序，怎么控制exe程序的显示位置？(200分)

X

xingxingz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #1

应用程序里面调用另外一个exe程序，怎么控制exe程序的显示位置，
并且获取exe程序的界面大小。

 

K

k10j

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

用一个Windows的API函数setwindowpos就可以了，具体使用的参数可以参考一下Delphi自带的WindowsSDK.

 

W

watter

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #3

调用外部程序：
ShellExecute

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #4

首先取得EXE的句柄,再SetWindowPos

 

C

cb422

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #5

调用外部程序：
ShellExecute,然后调用findwindow函数取得EXE的句柄,再SetWindowPos

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-29

• #6

nod cb422

 

L

lww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #7

应用程序里面调用另外一个exe程序，
ShellExecute(handle, NULL, path_to_file, NULL, NULL, SW_SHOWNORMAL)
取得可执行程序句柄
h=findwindow(nil,EXE文件的标题)
获取exe程序的界面大小。
var
R: TRect;
begin
GetWindowRect(h, R);
控制exe程序的显示位置，
SetWindowPos

 

Y

yypeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #8

同意用setwindowPos

 

W

WilliamGui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #9

good

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #10

用參數傳抵

 

X

xiao_min

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #11

if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security attributes }
nil, { pointer to thread security attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then
begin
exit; { pointer to PROCESS_INF }
end
在StartupInfo中可以设置显示位置信息

 

C

confidentbb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-30

• #12

ShellExecute (Handle ,'open','mplayer2',pchar(strname),0,0);
Sleep(300);
me:=FindWindow('Media Player 2',nil);
SetWindowPos(me,HWND_TOPMOST,0,0,300,300,SWP_NOACTIVATE );

 

X

xingxingz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #13

多人接受答案了。