Delphi获取默认打印机名称及端口
生活随笔
收集整理的這篇文章主要介紹了
Delphi获取默认打印机名称及端口
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
在前段時間寫的收銀系統(tǒng)中由于目前市場上很多電腦主板上已經(jīng)沒有并口,而POS機卻又需要并口,所以目前需要用PCI轉(zhuǎn)接卡,這個就導(dǎo)致不同門店使用的端口就有可能不同,這就給我們程序中彈出錢箱的指令帶來一定的難度。所以就通過獲取Window自帶的默認,得出打印機信息。 在Windows文件下有個win.ini,里面自帶默認打印機的信息。通過調(diào)用API函數(shù)Getprofilestring這個函數(shù)獲取打印機信息。 在界面上拖個button,在其單擊事件中寫: procedure TForm1.Btn1Click(Sender: TObject);
var
????AppName : Array [0..256] of Char;????//節(jié)名稱字符串
????KeyName : Array [0..256] of Char; //鍵名稱字符串
????DefaultString : Array [0..256] of Char; //在鍵名沒找到時默認返回的字串
????ReturnedString : Array [0..256] of Char; //在鍵名找到時返回的字串
begin
????AppName := 'Windows';//節(jié)名稱
????KeyName := 'device';????//鍵名稱
????GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
????ShowMessage(ReturnedString);
end;
var
????AppName : Array [0..256] of Char;????//節(jié)名稱字符串
????KeyName : Array [0..256] of Char; //鍵名稱字符串
????DefaultString : Array [0..256] of Char; //在鍵名沒找到時默認返回的字串
????ReturnedString : Array [0..256] of Char; //在鍵名找到時返回的字串
begin
????AppName := 'Windows';//節(jié)名稱
????KeyName := 'device';????//鍵名稱
????GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
????ShowMessage(ReturnedString);
end;
轉(zhuǎn)載于:https://www.cnblogs.com/chenbg2001/archive/2009/08/29/1556446.html
總結(jié)
以上是生活随笔為你收集整理的Delphi获取默认打印机名称及端口的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: arcgis server for .N
- 下一篇: 十进制数转化为2进制后有多少个1