[结贴]修改默认打印机的疑问

webcrow

http://bbs.justep.com/forum.php? ... =%B4%F2%D3%A1%BB%FA
我用了以上连接的方法，但是行不通哟，只是把当前默认打印机取消了，没有设指定打印机为默认打印机，请教一下

lixy

在Delphi中有下面的方法   你试验可以用吗？
procedure TMainForm.Button5Click(Sender: TObject);
var
  Device: array[0..255] of Char;
  Driver: array[0..255] of char;
  Port: array[0..255] of char;
  s : array[0..255] of Char;
  hDeviceMode: THandle;
begin
  Printer.PrinterIndex := ComboBox1.ItemIndex;
  Printer.GetPrinter (Device, Driver, Port, hDeviceMode);
  StrCopy (s, Device);
  StrCat (s, ',');
  StrCat (s, Driver);
  StrCat (s, ',');
  StrCat (s, Port);
  WriteProfileString ('windows', 'device', s);
  StrCopy (s, 'windows');
  SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@s));
end;

webcrow

这段代码在delphi中是可以的，我现在没有办法，只好在X3外面启动一个delphi程序来设置，但是感觉好怪，希望在X3中可以搞定啊。呵呵

jiahaiminghr

楼主，我这里是可以的。

你是怎么做的？

webcrow

按那个链接的7、8楼的两个办法试验的

lixy

楼主的  控制面板－打印机和传真   有几个打印机？？

webcrow

4台，图片在上面，我就是想在IP1000和Image writer之间切换

lixy

jiahaiminghr刚刚试验过的，代码是没有问题的、
你说delphi代码可以？  那你仔细检查下x3 建模工具的代码是不是写错了。

webcrow

代码没错的，都是拷贝过去的，我也觉得很奇怪，唉，刚转到X3，碰到很多奇怪事情，呵呵，可能自己水平太差，或者是还没有太适应，先结贴吧，希望这次有机会到北京来当面请教

yancm

好的