procedure TForm1.Button1Click(Sender: TObject);
var
Print_handle : Thandle;
begin
Print_handle:= FindWindow('Tapplication','d:\phtobank\test1.exe');
if Print_Handle=0
then WinExec('d:\phtobank\test1.exe',SW_SHOWNORMAL)
else
MessageBox(Handle,'출력프로그램이 실행중입니다',
'프로그램확인',
MB_ICONERROR + MB_OK + MB_APPLMODAL);
if print_handle <> 0 then
SendMessAge(Print_handle,WM_SYSCOMMAND,SC_CLOSE,0);
end;
문제는 ?
외부 프로그램을 실행시킨후
실행시킨 프로그램을 종료시키고 싶은데요.
Print_handle:= FindWindow('Tapplication','d:\phtobank\test1.exe');
이 명령어에서 Print_handle 값이 계속 0으로 됩니다.
분명이
test1.exe 프로그램을 실행중이거든요.
왜그럴까요 ?
답변좀 부탁드립니다.
findwindow 에 할수 있는 방법을 다 해보았는데도 않되는 군요/
|