双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

一台机器连两台打印机,程序如何控制. 急急急!!!

2004-07-05 10:15:13 174 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

webnote 墨衍会员 · AI 创作全网分发关注 + 加入社区

AD域控备份与恢复实战：从系统状态到裸机还原在现代企业IT架构中，集中身份认证和权限管理往往依托于AD域服务，而其底层数据的安全则依赖于可靠的Windows Server备份策略。AD域控采用多主复制模型，一旦发生误删或逻辑损坏，数据会迅速同步扩散，因此域控备份必须区别于普通文件备份。系统状态备份能够捕获注册表、AD数据库等关键配置，而裸机备份则提供整机快速恢复能力，二者在不同故障场景下各有价值。通过wbadmin工具结合VSS卷影复制，运维人员可以在不停止服务的情况下完成一致性备份；面对误删对象，授权还原配合DSRM模式可精准恢复。合理的备份层级设阅读详情

我要在软件中实现打印发票和一般统计报表的功能,我现在想在一台机器上安装两台打印机,一台票据打印机用来打印发票,另一台普通打印机用来打印报表.问题是我怎样才能实现在"打印发票"时,系统会自动用票据打印机来打印,打印报表时用普能打印机来打印.

...全文

squirrel校园二手交易平台 squirrel校园二手交易平台（适合寻找SSM项目练手的你。）项目起源：　　期末的课程设计，三人一组，我和两个舍友，一时起兴，决定做一个校园二手交易平台，一开始兴致与激情满满，可是后期时间上的冲突，让我们三个人对于这个项目有点累。　　这个项目刚定题两天，BezosLee由于通过了360的网上在线笔试，收到了360公司的免费培训邀请，要去北京的360总部进行培训一周，值得庆... 阅读详情

webnote

数据库相关 2,508 成员 88,437 内容

+ 关注 + 加入社区

切换为时间正序

aiirii 2004-07-05

打赏
举报

http://community.borland.com/article/0,1410,28936,00.html

aiirii 2004-07-05

打赏
举报

http://www.latiumsoftware.com/en/delphi/00025.php
Setting Windows default printer programmatically

uses IniFiles, SysUtils, Messages;

type
TDevice = record
Name, Driver, Port: string;
end;

var
Devices: array of TDevice;
DDevice: TDevice; // current default printer

procedure TForm1.FormCreate(Sender: TObject);
var
WinIni: TIniFile;
DevList: TStringList;
device: string;
i, p: integer;
begin
WinIni := TIniFile.Create('WIN.INI');

// Get the current default printer
device := WinIni.ReadString('windows', 'device', ',,');
if device = '' then device := ',,';
p := Pos(',', device);
DDevice.Name := Copy(device, 1, p-1);
device := Copy(device, p+1, Length(device)-p);
p := Pos(',', device);
DDevice.Driver := Copy(device, 1, p-1);
DDevice.Port := Copy(device, p+1, Length(device)-p);

// Get the printers list
DevList := TStringList.Create;
WinIni.ReadSectionValues('Devices', DevList);

// Store the printers list in a dynamic array
SetLength(Devices, DevList.Count);
for i := 0 to DevList.Count - 1 do begin
device := DevList[i];
p := Pos('=', device);
Devices[i].Name := Copy(device, 1, p-1);
device := Copy(device, p+1, Length(device)-p);
p := Pos(',', device);
Devices[i].Driver := Copy(device, 1, p-1);
Devices[i].Port := Copy(device, p+1, Length(device)-p);

// Add the printer to the ListBox
ListBox1.Items.Add(Devices[i].Name
+ ' (' + Devices[i].Port + ')');

// Is the current default printer?
if (CompareText(Devices[i].Name, DDevice.Name) = 0) and
(CompareText(Devices[i].Driver, DDevice.Driver) = 0) and
(CompareText(Devices[i].Port, DDevice.Port) = 0) then
ListBox1.ItemIndex := i; // Make it the selected printer
end;
WinIni.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
WinIni: TIniFile;
begin
if ListBox1.ItemIndex = -1 then exit;
DDevice := Devices[ListBox1.ItemIndex];
WinIni := TIniFile.Create('WIN.INI');
WinIni.WriteString('windows', 'device', DDevice.Name
+ ',' + DDevice.Driver + ',' + DDevice.Port);
WinIni.Free;
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0,
LPARAM(pchar('windows')));
end;

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Button1Click(Sender);
end;

ahyf 2004-07-05

打赏
举报

当然可以，打印对话框，不是可以选择输出到哪能打印机吗？

✦双11狂欢大促✦

一台机器连两台打印机,程序如何控制. 急急急!!!

相关推荐

双11狂欢大促