var

myHandle : HWnd;

begin

myHandle := Findwindow(nil,pchar('계산기'));

if myHandle = 0 then

begin

ShellExecute(Handle,'open','Calc','', '',SW_SHOWNORMAL) ;

myHandle := FindWindow(nil, pchar('계산기')) ;

if myHandle <> 0 then

SetWindowPos(myHandle, HWND_TOPMOST, 50, 200, 200, 200,

SWP_NOZORDER or SWP_NOSIZE or SWP_SHOWWINDOW) ;

end



end;

안녕하세요?

위 코딩에 대해서 질문있습니다.

저는 project1.exe실행파일에서 특정버튼을 누르면 계산기 프로그램을

띄우고 싶어서 위처럼 코딩했습니다.

그런데, 항상 계산기 프로그램이 띄는 위치가 left와 top이 0위치에서 뜹니다.



위처럼 코딩하면 left가 50, top이 200이 되는것으로알고있는데,

왜 안될까요?



그런데, 문제는 F7로 디버깅해보면 최종 계산기 프로그램이 띄는 위치가

50 , 200입니다. 그러나, 실행파일로 실행시키면 항상 0, 0이 됩니다.

왜 그런걸까요?

알고싶습니다.