프린터 목록 불러오기 / 기본프린터 불러오기

프린터 목록 불러오기 / 기본프린터 불러오기

 

728x90

 

 

 

 

 

 

uses Printers, Messages;

 

function GetDefaultPrinter : string;

var

  ResStr : array[0..255] of char;

begin

  GetProfileString('Windows','device','',ResStr,255);

  Result := StrPas(ResStr);

end;

 

procedure SetDefaultPrinter(NewDefPrinter : string);

var

  ResStr : array[0..255] of char;

begin

  StrPCopy(ResStr,NewdefPrinter);

  WriteProfileString ('windows', 'device', ResStr);

  StrCopy (ResStr, 'windows');

  SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@ResStr));

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := GetDefaultPrinter;

end;

 

//Fill the combobox with all available printers

procedure TForm1.FormCreate(Sender: TObject);

begin

  Combobox1.Items.Clear;

  Combobox1.Items.AddStrings(Printer.Printers);

end;

 

//Set the selected printer in the combobox as default printer

procedure TForm1.Button2Click(Sender: TObject);

begin

  SetDefaultPrinter(Combobox1.Text);

end;