请教一个关于打印机默认打印的问题？

[vigrous_chen]

局域网中的一台计算机通过网络共享的方式连接了3台功能不同的打印机，
我是通过PrintDialog1来选择打印的，但是在选择了某一台计算机后，所打印
的内容总是发送到默认的打印机。这样就需要不断的在控制面板上切换打印机的
属性来达到目的。请问能否在执行PrintDialog1的Execute时，可否能使选择的打印机自动转换为默认，在打印完成后，再恢复原先的设置。请给一段代码好吗？
谢谢

[yangkunjie]

里面我记得有这个属性的，你试试看

[vigrous_chen]

to yangkunjie 是什么里面，PrintDialog1中吗？

[vigrous_chen]

这里的天空好冷，why?

[zx_wang]

这是一个设置默认打印机的程序




unit MainFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TMainForm = class(TForm)
cbPrinters: TComboBox;
lblPrinter: TLabel;
procedure FormCreate(Sender: TObject);
procedure cbPrintersChange(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation
uses IniFiles, Printers;

{$R *.DFM}

procedure TMainForm.FormCreate(Sender: TObject);
begin
cbPrinters.Items.Assign(Printer.Printers);
cbPrinters.Text := Printer.Printers[Printer.PrinterIndex];
lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex];
end;

procedure TMainForm.cbPrintersChange(Sender: TObject);
var
IniFile: TIniFile;
TempStr1, TempStr2: String;
S: array[0..64] of char;
begin
with Printer do
begin
PrinterIndex := cbPrinters.ItemIndex;
TempStr1 := Printers[PrinterIndex];
System.Delete(TempStr1, Pos(' on ', TempStr1), Length(TempStr1));
IniFile := TIniFile.Create('WIN.INI');
try
TempStr2 := IniFile.ReadString('Devices', TempStr1, '');
IniFile.WriteString('windows', 'device', TempStr1 + ',' + TempStr2);
StrCopy(S, 'windows');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
finally
IniFile.Free;
end;
end;
lblPrinter.Caption := Printer.Printers[Printer.PrinterIndex];
end;

end.

[vigrous_chen]

调用win.ini配置文件，有没有什么办法，使打印结束后，再恢复到原来的
打印默认设置？