请问如何设置默认的打印机?谢谢!在线~~~~~~~~~~

klbs53 2003-04-18 02:09:15
预览的时候,点打印设置
错误提示:
没有设置默认的打印机

delphi 6
...全文
64 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
klbs53 2003-04-18
  • 打赏
  • 举报
回复
哦!
谢谢!
WWWWA 2003-04-18
  • 打赏
  • 举报
回复
从控制面板->打印机->添加、设置打印机,如有打印机,设置为
默认。
u2m 2003-04-18
  • 打赏
  • 举报
回复
以下是我收集的资料,改变默认打印机
procedure TForm1.Button1Click(Sender: TObject);
var
WinIni : TIniFile;
WinIniFileName : array[0..MAX_PATH] of char;
s : array[0..64] of char;

begin
GetWindowsDirectory(WinIniFileName, sizeof(WinIniFileName));
StrCat(WinIniFileName, '\win.ini');
WinIni := TIniFile.Create(WinIniFileName);
try
WinIni.WriteString('windows',
'device',
'HP LaserJet Series II,HPPCL,LPT1:');
finally
WinIni.Free;
end;

StrCopy(S, 'windows');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
end;

u2m 2003-04-18
  • 打赏
  • 举报
回复
This grabs the selected printer in a ComboBox and makes it the default
printer.

Use this on form create (or whatever)...

ComboBox1.Items := Printer.Printers; {populates ComboBox}
ComboBox1.ItemIndex := Printer.PrinterIndex; {sets display to current
printer}

then, assuming you have a Button5...

procedure TForm1.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;
网络基础知识大全 1 网络常用基础知识: 3 1)如何查看本机所开端口: 3 2)如何获得一个IP地址的主机名? 3 3)如何查看本机的ip地址? 3 4)再使用net命令的时候遇到一些错误代码,如何查看对应的错误信息? 4 5)利用telnet连接到对方主机上,想获得一些系统信息,用什么命令? 4 6)跟踪路由器的命令是什么? 4 7)简单介绍一下cookie! 4 8)安装2000的时候,速度会特别特别特别慢,怎么加快安装速度呢? 5 9)Windows2K密码忘记了,如何才能进入系统? 5 10)ping不到,tracert不到,但是却能用nbtstat显示对方的一些信息,为什么? 5 11)telnet上去后,如何给对方开共享? 5 12)如何判断对方的具体操作系统版本? 5 13)如何查看98的随机启动的程序? 6 14)设置了BIOS密码,可是却忘记了,该怎么办? 6 15)如何自制一个让98蓝屏的炸弹? 6 16)如何再命令行下杀死对方进程? 7 17)上次说了ping的基本用法,这次谈谈ping的命令参数! 7 18)如何查看本机的DNS服务器? 8 19)肉鸡上的部分文件无法删除,怎么办? 8 20)再说一个可以限制用户登陆时间的命令! 8 22)如何删除windows2K的默认贡献? 8 23)139端口的又一用法 9 24)利用批处理文件来建立一个记录3389登陆者信息的记录器 10 25)网络命令小节 10 26)这里我必须(或者说不得不重新重申一个命令!不过说之前我要把这个命令的相关命令稍微介绍一下!) 12 27)关于双系统的两个问题: 12 28)这里说几个主页恶意代码:『并不是让大家把这些代码加入到自己的主页中!只是希望大家能了解恶意代码,起到更好的防护作用!』 13 29)系统自带的系统工具 14 30)批处理在入侵中的几则妙用! 15 31)再说几个非常简单实用的DOS命令(工具): 15 32)ping命令的其他技巧: 17 局域网应用问题专题解答 (Rayi々) 18 1、问:我访问局域网中的计算机时,为什么常常被提示要输入用户名和密码? 18 2、问:上网浏览前在局域网中应如何对IE进行设置? 18 3、问:在局域网中应如何设置OutLook Express收发邮件? 18 4、问:在由三台电脑组成的局域网中,我在其中一台电脑上用过Windows优化大师后,为什么这台电脑就不能登录网络,并且还提示找不到拨号适配器? 18 5、问:如何在局域网中设置QQ、ICQ等即时通讯软件? 18 6、问:我想用NetMeeting进行局域网中的通话,应该如何设置? 19 7、问:我知道在局域网内文件是可以共享的,但我想问的是,打印机和扫描仪应该如何共享? 19 8、我用分机线上网,上网速度最大才48000bps,请问是何原因? 还有,将Modem放在主机箱侧面,开机后(未打开Modem电源),家里的电话就处于忙音状态,如何解决? 19 9、我新购的网卡在电脑上无法安装,而在其他电脑上却使用正常,这是怎么回事? 19 10、我的电脑出现“网上邻居”中找不到其他联网电脑的故障,如何解决? 20 11、问:公司局域网,只有一台机器通过猫接入互联网,现想其他机器接入互联网,请问如何实现? 20 12、问:局域网通过路由器、使用ADSL方式上网,如何使各工作站快速的获得可以上网的IP地址而不手工去指定? 20 13、问:公司要组建局域网,需要用到邮件服务器和WWW服务器,请问这两种服务放到一台电脑里还是分别用两台电脑?都用什么软件?谢谢! 20 14、问:家里原先有一台PII的计算机,最近又新增一台P4机器,操作系统都为Windows 98且已安装网卡,现在我想把他们联起来共享资源,该怎么办? 20 15、问:办公室机器桌面的“网上邻居”图标没了,能上Internet,但无法浏览其他机器上的资源了,怎么办? 21 16、问:办公室机器桌面的网上邻居图标解决了且也能浏览其他机器的共享资源了,但发现右键中的“共享”命令没了!怎么办? 21 17、问:右键中的“共享”命令已经显身!但我设了共享不想让别人从网上邻居中看到这个共享目录,只有自己知道且能实现异地机上有完全操作的权限。 21 18、问:一块PCI总线的10/100自适应网卡,无法正常工作。主要表现在网络时断时续,不管是不是Ping自己的IP地址,还是Ping对方的IP地址,都有这种情况发生。查看网卡的指示灯也出现同样的现象。 21 19、问:我的电脑与一个对等网连接好了,但不能读别人电脑上的数据,这是怎么回事? 21 20、问:我的网络从集线器升级为交换机后,感觉速度并没有多大提高,是什么原因? 22 21、问:VLAN是什么意思,使用它有什么好处? 22 22、问:我的自适应网卡只有红灯闪烁,绿灯不亮,这种情况正常吗? 22 23、问:如何使用交换机的UpLink端口,怎样连接?使用了UpLink口后,是否还可以使用其相邻最近的端口? 22 24、问:我在安装网卡后,在“系统→设备管理器”中网卡出现黄色的“!”号,请问该如何解决? 23 25.问:ADSL上网网页打不开的问题? 23
官网:http://livecapture.googlecode.com * 什么是LiveCapture? LiveCapture是用户友好丰富特针的截屏和屏幕录像软件, 适合软件开发者、图形设计者以及普通用户 它不但有多种模式的截屏,还集多种功于一身,如:取色器,放大镜,调色板,屏幕标尺,坐标轴,量角器 它有多种截屏模式 #全屏截图 #活动窗口截图 #窗口控件截图 #选择区域截图 #固定区域截图 #截图并加标注(跟QQ截图相似) #自动滚动截图 #定时后台连续截图 #重复上次截图 #程序菜单截图 #后台网页截图 它急你所需,还启动快捷,还可以从快捷键和托盘菜单截屏 此软件对个人用户和商业用户都免费使用,不需要你任何花费 * 特针 对多个windows系统支持 多语言支持 不写注册表,不会在系统目录里写任何文件(放在U盘里随时可用) * 屏幕截图 各种输出文件方式,可以自定灵活的文件名,以及输出到Word,Excel,PPT,画图,windows图片和传真查看器,外部编辑器(可自定义),发送到Email,FTP空间,Web空间 全屏 激活窗口 窗口控件 选择区域 固定区域 并加标注 自动滚动 定时后台 重复上次 程序菜单 后台网页 * 图形编辑器 Todo Lists * 取色器和调色板 可以获得各种格式的颜色值(RGB,十进制,十六进制) 多种颜色表示方式:RGB/HSL/HSV 获得你满意的颜色 * 屏幕标尺 水平和垂直方向 各种单位(像素,厘米,英寸) 测量屏幕任意两点间的距离 DPI设置(72,96,120,300以及用户自定义) 多种色彩的皮肤可以设置 你不用再单独安装专门的屏幕标尺了 * 屏幕放大镜 放大率从一倍到二十位不等 置顶窗口,水滑显示,可以拖动改变窗口尺寸 * 坐标轴 在当前屏幕上绘横竖坐标线,并显示坐标值 * 量角器 用它测量屏幕上图形的角度 * 屏幕录像机 该屏幕录像机功能非常丰富,有四种录像模式(窗口/控件,矩形区域,全部屏幕,除系统任务栏外的全部屏幕;有细致的设置;有多种保存格式:avi, flv, mpg, mov, asf, wmv ************************************** 升级日志 *********************************** # 发行版本: 1.2.4 发行日期: 2011-09-07 + 增加 增加发送截图到打印机 * 修改 修正截屏栏显示当前皮肤 # 发行版本: 1.2.3 发行日期: 2011-09-03 + 增加 增加可以更换截屏栏皮肤/字体/透度背景色,谢 LitterCat@gmail * 修改 修正截屏栏显示等不能跟‘配置’设置同步的问题,猛谢 oicu@smth # 发行版本: 1.2.2 发行日期: 2011-08-29 + 增加 更换一些分辩率不高的图标,谢 hgoldfish@smth * 修改 修正在Win7下无法显示图标的问题,谢 oicu@smth, mous@smth, hgoldfish@smth, PGP@smth # 发行版本: 1.2.1 发行日期: 2011-08-27 + 增加 在‘重复上次截图’模式中增加上次是手绘区域 * 修改 修正在截屏栏无法显示图标问题,谢 oicu@smth, mous@smth 修正用画图板打开(没有设置自动保存)时会同时自动保存,谢 oicu@smth 修正在配置界面一个小问题 修正退出‘截图并加光标模式’时: 1. 光标不能恢复系统默认的 2. 按Esc键/或右键进行第二次截图时,字体大小不对,颜色板显示不对 3. 一个提示错误,谢 climbfeng@smth # 发行版本: 1.2.0 发行日期: 2011-08-25 + 增加 全面改写‘截图并加标注’模式(高度仿QQ截图功能) 增加‘手绘区域截图’ * 修改 解决被杀软误报有毒的问题 # 发行版本: 1.1.2 发行日期: 2011-08-20 + 增加 增加在放大镜中显示鼠标指针标识,谢 buttonwood@smth 增加在矩形区域模式时即选即截图(在配置-截取标签里设置),谢 buttonwood@smth 增加繁体中文语言,谢 kk_lee69@ACN * 修改 修正不能第二次录像的问题 # 发行版本: 1.1.1 发行日期: 2011-08-16 + 增加 增加支持双显示器及多显示器截图 * 修改 把所有图标都放进DLL里了,并美化个别图标(这样看起来整洁点),谢 CorZ@smth 添加提醒录像时需要大的空间来操作视频数据,谢 pianzi@ANAU 修改矩形区域截图时鼠标指针样式为十字,谢 buttonwood@smth 修正不能设置图像编辑器热键问题,以及不能取消热键取消问题,谢 fireseed@smth, qiankun@smth # 发行版本: 1.1.0 发行日期: 2011-08-14 + 增加 增加屏幕录像机 增加屏幕量角器 增加检测热键是否被别的程序占用 添加网页截图按纽在截图工具栏上 # 发行版本: 1.0.8 发行日期: 2011-08-05 + 增加 增加后台直接对网页截图 增加命令行启动参数,谢 sanmoking@ACN 增加对矩形/全屏/固定模式下对特别窗口截图支持,如:透明窗口,图层窗口 添加在截屏栏里启动配置界面,谢 sptb@smth * 修改 修正了从截屏栏进入配置界面时崩溃的问题,谢 sptb@smth 修正有点会把提示气泡截进图片里的问题,谢 itzac@smth # 发行版本: 1.0.7 发行日期: 2011-07-31 + 增加 增加对分层窗口截图支持(其扩展样式带有WS_EX_LAYERED) 增加对菜单截图的说明 增加用windows图片和传真查看器打开截屏图片文件 * 修改 修正标尺测两点距离时,不能测第二次的问题,谢 ValeryVal@gmail 修正不能从调色板上调出取色器的问题,谢 ValeryVal@gmail 优化上传web上传 # 发行版本: 1.0.6 发行日期: 2011-07-24 + 增加 增加进入配置界面时转到上次退出时的标签页,谢pomuyu@smth 增加上传截屏图像到FTP空间(需要设置FTP服务器) 增加上传截屏图像到Web空间(不需要注册,直接返回链接) * 修改 修正连续按两次快捷键出现的问题,谢pomuyu@smth 改进连网检查新版本占用程序启动时间的问题,谢pomuyu@smth 修正出现“变量未申明”的错误提示问题,谢pomuyu@smth 修正罕见操作后出现跟随鼠标提示不消失问题,谢pomuyu@smth 修正截图文件名不能任意组合内置变量问题,谢pomuyu@smth 修改中文“多模合一截图”叫法为“截图并加标注”,谢pomuyu@smth # 发行版本: 1.0.5 发行日期: 2011-07-19 + 增加 增加重复上次截图模式,谢谢pomuyu@smth提此建议 增加截图工具条靠近屏幕边沿时自动隐藏,鼠标靠近相应屏幕边沿时显示 增加设置截屏工具栏的大小(尺寸) 增加在屏幕标尺里增加计算屏幕任意两点间的距离 增加在当前屏幕上画坐标轴 增加发送截图到电子邮件 * 修改 修正当取消保存截图时,还会调用外部图像编辑器的问题, 谢pol@smth 修改几个截图模式的中文叫法,谢oicu@smth, mous@smth 修改“选择矩形区域”的图标,谢Argentina@smth # 发行版本: 1.0.4 发行日期: 2011-07-07 + 增加 增加截屏工具栏 增加可以设置文件名为当前活动窗口标题 * 修改 修正标尺选择背景颜色后,被选择中的颜色没有选中 修正定时后台连续截图模式下GUI界面一直是英语问题及部分控件显示 # 发行版本: 1.0.3 发行日期: 2011-06-29 + 增加 增加定时后台连续截屏模式 # 发行版本: 1.0.2 发行日期: 2011-06-22 * 修改: 修正改变语言时,托盘菜单文字不变成新设置的文字问题 修正选择区域截图时,按Esc键后放大镜不关闭以及光标没有恢复系统原来的样式问题 修正固定区域截图时,按Esc键后选择框不消失问题 修正设置截取时不显示放大镜,但截取时还是显示放大镜问题 修正不能设置取消用外部程序打开截图问题 # 发行版本: 1.0.1 发行日期: 2011-06-19 + 增加: 增加屏幕标尺右键菜单,极大丰富了屏幕标尺功能 * 修改: 修正截图后不能恢复鼠标样式的问题 修正两个罕见的bug # 发行版本: 1.0.0 发行日期: 2011-06-19

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧