모든 분들 감사합니다.

결국엔 해결 했구요....

제가 질문을 잘 못해서 여러분들을 헷갈리게 했나 봅니다.

제가 해결한 부분은요...

procedure TForm1.Timer1Timer(Sender: TObject);
begin

  Keybd_Event(VK_Return, VK_Return, 0, 0); // 실행코드는 이놈 한줄 !!!

end;


요로케 단 한줄의 코드입니다. 델파이를 많이 써보질 않다보니...ㅠㅠ

저렇게 간단한 해결책이 있는것을........

모든 분들 다 감사하구요... 좋은 하루 즐거운 하루 되시길 바랍니다.

고기님.. 그 코드는 활성화 되어있는 윈도우에게

엔터키를 날리는 문장입니다.

만약 메세지윈도우 가 활성화 되어 있지 않다면 무용지물인 코드이지요..

으음.. 그냥 아래 제가 쓴 코드 사용하지지..

꼬옥 한줄로 해결해야 한다는건 좀 억지성이..^_^;;

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

맞는 말씀입니다.

활성화 되어있지 않으면 무용지물이죠.

제가 바버죠 ~~ ^^

그래서 님들께서 가르쳐 주신 모든 방법들을 동원해서 하나의

코드를 완성했습니다.

물론 한줄로는 못 줄였죠... 그 바람에 소주값 날아갔죠..^^

그래도 이렇게 많은 것을 배울 수 있는 좋은 기회였던것 같습니다.

모든 분들께 감사드립니다.

메세지 다이얼로그의 클래스 명과 캡션을 이용해

핸들을 구하고, 적당한 시간뒤 죽여버리면 되겠네요.

그럼~ 항상 즐거운 프로그래밍 하시길~~~


procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  ShowMessage('aaaaaaaaaaaa');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  H : HWND;
begin
  H := FindWindow('TMessageForm', 'Project1');
  if H <> 0 then
    SendMessage(H, WM_CLOSE, 0, 0);
  Timer1.Enabled := False;
end;

볼랜드 포럼에 제가 등록한 방법입니다.
참고 하시길...

http://www.bcbdn.com/impboard/impboard.dll?action=read&db=del_qna&no=7916

제가 알고 있기로 ShowMessage에서 님과 같은 방법으로 죽일수 있는 없습니다.
일단 showmessage는 모달로 어떻게든 사용자에게 전달하고자 하는 메시지를 보여 주고자 만들거라서 그렇게 죽일수는 없죠..
님이 원하는 기능을 같도록 override 시켜 버리거나,, 아니면,, 메시지 폼을 님의 설정에 맞게 만드시면 됩니다..

열흘나비였슴당....

결국에는 맹글어야 한다는 얘기군요.

다이얼로그 있는 코드 보니까 만들기는 어렵지 않지만.

문제는 단 한줄의 코드로 박살을 내야 한다는 거죠.

단 한줄 ~~ ㅠㅠ

울 과장님이랑 내기 했거든요... 한 줄로 죽여보이겠다구

내가 미쳤쥐 ~~~ ㅠㅠ

안녕하세요? 구창민입니다.

위에 제가 쓴 답글을 못 보셨나요? ^_^;

으음.. 위의 코드가 마음에 안드셨나 본데..^_^;

여러가지 방법이 있습니다.

좀더 뽀다구 나는 코드를 만들어 볼까요?

메세지 폼의 핸들을 구하고 그의 자식핸들을 구해서

버튼을 클릭해 보이죠.

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  H, Child, BH : HWND;
  C : Array[0..127] of Char;
  S : String;
begin
  H := FindWindow('TMessageForm', 'Project1');
  if H <> 0 then
  begin
    Child := GetWindow(H, GW_CHILD);
    while Child <> 0  do
    begin
      if GetClassName(Child, C, SizeOf(C)) > 0 then
      begin
        S := StrPAS(C);
        if UpperCase(S) = 'TBUTTON'  then
        begin
          PostMessage(Child, CN_COMMAND, BN_CLICKED, 0);
          break;
        end;
        Child := GetWindow(Child, GW_HWNDNEXT);
      end;
    end;
  end;
  Timer1.Enabled := False;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  ShowMessage('aaaaaaaaaaaa');
end;

end.

안녕하세요 하얀까마귀 입니다.

소스를 보시면 결국 ShowMessage는

CreateMessageDialog 이라는 함수를 이용해서. TMessageForm을 생성

시키는 함수입니다. TMessageFrom 은 TFrom의 자손이구요..

그리고 요넘은 당연히 ShowModal 하게 되어 있죠..

음. 이 클래스 간단한거거덩요? 그냥 통째로 이거 다시 만들어도 될꺼구요.

아니면  FindWindow 뭐 이런거 쓰지 말구.

직접 CreateMessageDialog 함수 사용하면 이넘이 넘겨주는게 TForm 형
이거든요?
여기서 이넘을 맘대로 쓰시면 되죠.. 음...

아니면 뭐 타이머 같은거 가지고 간단하게 해도 되구..

예를 들면

  fMes := CreateMessageDialog('aaa', mtCustom, [mbOK]);
  Timer1.Enabled := True;
  try
    fMes.Position := poScreenCenter;
    fMes.ShowModal;
   finally
     if Assigned(fMes) AND FmES.showing then fMes.Free;
   end;

이렇게 하구 타이머는 5초간격으로 하구요.
타이머에서.
Timer1.Enabled := FaLSE;
if Assigned(fMes) AND FmES.showing then fMes.Free;

요렇게 하면 되긴 할것 같네요..

별로 맘에는 안드는데.. 그냥 TMessageForm을 하나 만드는게 더 좋을듯 하네요.. 그럼..