저장 다이얼로그 박스 파일명 자동 입력하기

PDF문서로 저장시 기본 저장 파일명을 사용자 임의로 자동 변환해서 저장하고자 할 경우에

특정 상태에서 콤보박스의 EDIT 부분에 Sendmessage(WM_SETTEXT...)로 파일명을 입력 하였을 경우 입력된 파일명이 인식 되는 경우가 있고 안되는 경우도 있습니다.

이때 100% 인식 시키기 위해서는 다음과 같이 문자 단위로 입력 하도록 하면 잘 인식 됩니다.

 

<

procedure SendCharToEditControl(hd : THandle; AMsg : string);
var
  i : integer;
begin
  for i := 1 to length(AMsg) do
    SendMessage(hd,WM_CHAR, ord(AMsg[i]),0);
end;