delphi选择打印机:Delphi中获取打印机设备

2016-08-22 10:23:47来源:http://kaixinbuliao.blog.51cto.com/2567365/1331892作者:鹅倌人点击


delphi选择打印机:Delphi中获取打印机设备名和端口名 疯狂代码 http://www.CrazyCoder.cn/ :http:/www.CrazyCoder.cn/Delphi/Article11928.html uses Printers; {$IFNDEF WIN32} const MAX_PATH = 144; {$ENDIF} procedure TForm1.Button1Click(Sender: TObject); var pDevice : pChar; pDriver : pChar; pPort: pChar; hDMode : THandle; begin if PrintDialog1.Execute then begin GetMem(pDevice, cchDeviceName); GetMem(pDriver, MAX_PATH); GetMem(pPort, MAX_PATH); Printer.GetPrinter(pDevice, pDriver, pPort, hDMode); if lStrLen(pDriver) = 0 then begin GetProfileString(/'Devices/', pDevice, /', pDriver, MAX_PATH); pDriver[pos(/',/', pDriver) - 1] := #0; end; if lStrLen(pPort) = 0 then begin GetProfileString(/'Devices/', pDevice, /', pPort, MAX_PATH); lStrCpy(pPort,@pPort[lStrLen(pPort)+2]); end; Memo1.Lines.Add(/'Device := /' + StrPas(pDevice)); Memo1.Lines.Add(/'Driver := /' + StrPas(pDriver)); Memo1.Lines.Add(/'Port := /' + StrPas(pPort)); FreeMem(pDevice, cchDeviceName); FreeMem(pDriver, MAX_PATH); FreeMem(pPort, MAX_PATH); end; end; 2008-9-24 11:57:57 疯狂代码 http://www.CrazyCoder.cn/

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台