procedure TCsisMainF.ExecuteIQM;
var
bf,path : string;
cc : array[0..200] of char;
rv : integer;
begin
bf := '-r ' + zUserID + ' ' + zPassWord;
FillChar(cc,Sizeof(cc),#0);
StrpCopy(cc,bf);
path := zExePath + 'EVAConference'; // !!!!
rv := ShellExecute(Handle,
'open', // open
'IQM.EXE', // program file
cc, // Parameters
Pchar(path), // default directory
SW_SHOWNORMAL);
bf := PostShellMessage(rv);
windows.SetParent(rv,WebB.Handle);
SetWindowPos(rv,0,0,0,WebB.width,WebB.height, swp_nozorder or swp_showwindow);
if bf <> '' then begin
beep;
ShowMessage(bf);
end;
end;
이렇게 하니 메인에서 창이 하나 뜨고 그 위에 IQM.EXE 프로그램이 뜨긴하는데 IQM프로그램을 닫아도 새로뜬 창은 없어지질 않네요...
다른창을 띄워도 그래도 남아있습니다.
IQM.EXE 프로그램은 는 vc++ 로 작성됐습니다.
어떤분이 activex로 만들어 보라고 하시던데...
activex로 어떻게 만들어서 붙여요?
MDI 폼처럼 메인의 일부처럼 돌아가게 만들고 싶은데....
메인이 종료되면 IQM.EXE 프로그램도 종료되게....
쉬운 방법 없을가요?????