var hWndMe : HWND;
.
.
.
begin
hWndMe := FindWindow(Pchar('TfMainMenuBuss'), nil);
if hWndMe <> 0 then
SendMessage(hWndMe, WM_CLOSE, 0, 0);
end;
여기서 hWndMe = 0가 됩니다.
물론 해당 모듈은 실행 됐구요.
fMainMenuBuss 는 실행 프로젝트의 Mainform Name입니다.
(이건 누가 일케하면 된다구 해서....)
제가 알고 싶은건 'fMainMenuBuss'이것 즉 Classname을
지정할수는 없는지.... 또 Project의 어떤 사항이 실행시 Classname이
되는지...
적용하고자 하는 업무는 Version관리입니다.
별도의 시작 모듈이 있고 각 업무별 모듈이 있는데
시작 모듈이 Version관리 까지 하는 거죠
사용자가 시작 모듈을 기동하면
New Version File을 복사하기 위해서는 현재 실행중인
각 업무모듈을 종료하고자 하는 거죠.
그런데 각 업무모듈이 종료되질 않아서 고생하고 있습다.
부디 도와 주시면 감사하겠습니다.
코드는 별문제가 없어 보입니다.
아마도 Class 명을 잘못 기술한게 아닐런지요.
FindWindow 의 첫번째 인자는 FormName 이 아니고 ClassName 입니다.
근데 코드작성하신걸 보면 ClassName 같은데,
음.. ClassName 을 다시 확인해보세요.
그럼~ 항상 즐거운 프로그래밍 하시길~~