Delphi获取默认打印机名称及端口

在前段时间写的收银系统中由于目前市场上很多电脑主板上已经没有并口，而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;