Delphi获取默认打印机名称及端口
2009-08-29 21:33
253 查看
在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口,而POS机却又需要并口,所以目前需要用PCI转接卡,这个就导致不同门店使用的端口就有可能不同,这就给我们程序中弹出钱箱的指令带来一定的难度。所以就通过获取Window自带的默认,得出打印机信息。
在Windows文件下有个win.ini,里面自带默认打印机的信息。通过调用API函数Getprofilestring这个函数获取打印机信息。
在界面上拖个button,在其单击事件中写:
procedure TForm1.Btn1Click(Sender: TObject);
var
AppName : Array [0..256] of Char; //节名称字符串
KeyName : Array [0..256] of Char; //键名称字符串
DefaultString : Array [0..256] of Char; //在键名没找到时默认返回的字串
ReturnedString : Array [0..256] of Char; //在键名找到时返回的字串
begin
AppName := 'Windows';//节名称
KeyName := 'device'; //键名称
GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
ShowMessage(ReturnedString);
end;
在Windows文件下有个win.ini,里面自带默认打印机的信息。通过调用API函数Getprofilestring这个函数获取打印机信息。
在界面上拖个button,在其单击事件中写:
procedure TForm1.Btn1Click(Sender: TObject);
var
AppName : Array [0..256] of Char; //节名称字符串
KeyName : Array [0..256] of Char; //键名称字符串
DefaultString : Array [0..256] of Char; //在键名没找到时默认返回的字串
ReturnedString : Array [0..256] of Char; //在键名找到时返回的字串
begin
AppName := 'Windows';//节名称
KeyName := 'device'; //键名称
GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
ShowMessage(ReturnedString);
end;
相关文章推荐
- Delphi获取默认打印机名称及端口
- Delphi获取默认打印机名称及端口
- Delphi获取默认打印机名称及端口
- Delphi 获取系统默认打印机
- Delphi中获取打印机设备名和端口名
- Delphi中获取打印机设备名和端口名
- Delphi中获取打印机设备名和端口名
- 获取默认打印机名称
- 获取当前打印机的名称、驱动程序、打印端口信息
- 打印技术之获取及设置系统默认打印机
- 获取Windows默认打印机名
- VB 获取默认打印机的状态
- Delphi下获取系统默认的UserAgent的方法
- delphi获取系统安装的默认浏览器
- Delphi 设置系统默认打印机
- javascript获取客户端默认打印机
- 黄聪:Delphi 中的 XMLDocument 类详解(7) - 获取节点名称与节点的属性名称
- 水晶报表默认打印机名称
- 跨平台的文件路径书写方式 File.separator:获取与系统有关的默认名称分隔符
- delphi获取系统安装的默认浏览器