..

안내해 주셔서 감사합니다...
님께서 말씀하신대로 가 보았습니다.
그런데... 역시 기본 프린터 설정 변경은 되지 않습니다.
실행 프로그램 중에서...
기본 프린터를 마음대로 변경 하고자 하는데...
그곳의 팁 내용은 저의 바램과는 무관합니다...
님꼐서 한 번 도움을 주셨으면 합니다.

안녕하세요...

제가 생각하기에는 기본 프린터 변경시 기본 프린터를 변경하고 싶으신거 아닌지요?

그렇다면 아래와 같이 Function 을 만드셔서 사용을 하시면 될겁니다.^^;

function SetDefaultPrinter( const PrinterName : string ) : boolean;
var
  s2 : string;
  dum1 : Pchar;
  xx, qq : integer;
const
  cs1 : pchar = 'Windows';
  cs2 : pchar = 'Device';
  cs3 : pchar = 'Devices';
  cs4 : pchar = #0;
begin
  xx := 254;
  GetMem(dum1, xx);
  Result := False;
  try
    qq := GetProfileString( cs3, pchar( PrinterName ), #0, dum1, xx);
    if (qq > 0) and (trim( strpas( dum1 )) <> '') then
    begin
      s2 := PrinterName + ',' + strpas( dum1 );
      while GetProfileString( cs1, cs2, cs4, dum1, xx) > 0 do
        WriteProfileString( cs1, cs2, #0);
      WriteProfileString( cs1, cs2, pchar( s2 ));
      SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(cs1));
    end;
  finally
    FreeMem( dum1 );
    Result := True;
  end;
end;


그리구 아시죠? Uses 에 Printers 를 추가 하셔야 하구요..
이거 Function은 Excute하고 나서 프린터의 명을 가지고 호출을 하게 되면 기본프린터가 변경이 될 꺼에요.. 그럼 즐프 하세염.