|
|
|
|
|
 |
delphi 改变缺省打印机 |
| |
日期：2007-06-23 02:34:34
点击：7 评论：0  |
|
发送一条 WM_WININICHANGE 消息：
var
strIni: array[0..MAX_PATH] of Char;
arrWindows: array[0..64] of Char;
begin
GetWindowsDirectory(strIni, SizeOf(strIni));
StrCat(strIni, '\win.ini');
with TIniFile.Create(strIni) do |
|
|
delphi 判断系统是否有打印机连接 |
| |
日期：2007-06-23 02:33:25
点击：16 评论：0 |
|
begin
hPrinter:= GetCurrentPrinterHandle;
try
EnumJobs( hPrinter, 0, 1000, 1, Nil, 0, bytesNeeded,
numJobs );
pJ := AllocMem( bytesNeeded );
If not EnumJobs( hPrinter, 0, 1000, 1, pJ, bytesNeeded,
|
|
|
