Q&A

  • AtiveX폼을 포함한... 익스플로러창의 종료는?
이게  2000, xp에서는 findwindow 인가루 해서 종료가 잘 됐는데
2003이나 이런데서는 잘 안되네욤 왜 그럴까용?
1  COMMENTS
  • Profile
    이정근 2003.11.23 01:53
    Close라는 메소드 하나 추가한 후에..
    아래 코드로 하면 될겁니다..

    procedure TtestX.Close;
    var
      ParentWnd: HWND;
      ClassNameBuf: array[0..255] of Char;
    begin
      ParentWnd := GetParent(Handle);
      while ParentWnd <> 0 do
        begin
          FillChar( ClassNameBuf, SizeOf(ClassNameBuf), 0 );
          GetClassName( ParentWnd, ClassNameBuf, SizeOf( ClassNameBuf ) );
          if ClassNameBuf = 'IEFrame' then
            PostMessage(ParentWnd, WM_CLOSE, 0, 0);

          ParentWnd := GetParent(ParentWnd);
        end;
    end;