송기원 께서 말씀하시기를...

> windows 95에서 실행중인 모든 프로그램의 Handle을 참조할려고 합니다.

> 제가 만든 application이 active상태가 되면 현재 task에 등록된

> 모든 윈도우를 minimize시킬려고 하는데...

> 현재 작업중인 윈도우 리스트를 어떻게 얻어야 할지 난감하군요...

> 관련된 API를 아시는 분 답변좀 부탁합니다..



송기원님 안녕하세요?

질문하신 내용은 조금만 찾아보시면

팁/강좌란에서도 많이 볼수 있는 내용들인거 같습니다.

검색하시는 습관을 들이신다면 팁/강좌란들은 훌륭한

F1키가 될수도 있답니다.



아래는 말씀하신 실행중인 모든 창들을 최소화 시키는 루틴입니다

델파이 헬퍼에서 퍼 왔습니다.

그럼.. 즐거운 프로그래밍 되시길~





procedure TForm1.Button1Click(Sender: TObject);

var

hwndtray: HWND;

begin

hwndTray := FindWindowEx(0, 0, 'Shell_TrayWnd', PChar(0));

if hwndTray > 0 then

begin

SendMessage(hwndTray, WM_COMMAND, 415, 0);

MessageBox(0, '이제 원래의 상태로 합니다', '', MB_OK);

SendMessage(hwndTray, WM_COMMAND, 416, 0);

end

end;