如何用api设置默认打印机！急(100分)

我的机器上安装了多台打印机，我想用代码来实现设置默认打印机的功能
多谢！

procedure TForm1.FormCreate(Sender: TObject);
begin
cb1.items.assign(printer.printers);
end;

procedure TForm1.Button1Click(Sender: TObject);
var LPrinter:string;
PrinIniFile:Tinifile;
LStr:string;
begin
LStr:=printer.Printers[cb1.itemindex];
delete(Lstr,pos(' on ',Lstr),Length(LStr));
PrinIniFile:=TIniFile.Create('WIN.ini');
try
LPrinter:=PrinIniFile.ReadString('Devices',LStr,'');
PrinIniFile.writestring('windows','device',LStr+','+LPrinter);
finally
PrinIniFile.free;
end;
end;

谢谢你！
不好意思，再问你一个与此问题相关的
如果我第一次选择了打印机A, 会打印到A
但是我选择了打印机b（默认打印机已经改为B）, 还会打印到A。
我想必须要让windows知道默认打印机已经改动了，因为我的要打印的
数据是要连续打印的。