Delphi中获取打印机设备名和端口名计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:28:17
来源 100Test.Com百考试题网

　　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.

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台