안녕 하십니까?
항상 도움 감사 드립니다. 여러분의 도움이 저에게 큰힘이 되고 있습니다.
이글을 읽어 주신 모든 분께 감사합니다.
winspool.h에 DRIVER_INFO_1 ~ DRIVER_INFO_3 까지는 존재해서
uses절에 WinSpool을 추가해서 사용할 수 있습니다.
하지만
DRIVER_INFO_4 ~DRIVER_INFO_8 까지를 추가하려면 어떻게 해야 하는지 궁금합니다.
저는 WinSpool.h 파일을 열어서 아래와 같이 추가 했습니다.
하지만 잘안되더라구요. 어떻게 해야할지 궁금합니다.
PDriverInfo4A = ^TDriverInfo4A;
PDriverInfo4W = ^TDriverInfo4W;
PDriverInfo4 = PDriverInfo4A;
{$EXTERNALSYM _DRIVER_INFO_4A}
_DRIVER_INFO_4A = record
cVersion: DWORD;
pName: PAnsiChar; { QMS 810 }
pEnvironment: PAnsiChar; { Win32 x86 }
pDriverPath: PAnsiChar; { c:\drivers\pscript.dll }
pDataFile: PAnsiChar; { c:\drivers\QMS810.PPD }
pConfigFile: PAnsiChar; { c:\drivers\PSCRPTUI.DLL }
pHelpFile: PAnsiChar; { c:\drivers\PSCRPTUI.HLP }
pDependentFiles: PAnsiChar; { PSCRIPT.DLL\0QMS810.PPD\0PSCRIPTUI.DLL\0PSCRIPTUI.HLP\0PSTEST.TXT\0\0 }
pMonitorName: PAnsiChar; { "PJL monitor" }
pDefaultDataType: PAnsiChar; { "EMF" }
pszzPreviousNames: PAnsiChar;
end;
{$EXTERNALSYM _DRIVER_INFO_4W}
_DRIVER_INFO_4W = record
cVersion: DWORD;
pName: PWideChar; { QMS 810 }
pEnvironment: PWideChar; { Win32 x86 }
pDriverPath: PWideChar; { c:\drivers\pscript.dll }
pDataFile: PWideChar; { c:\drivers\QMS810.PPD }
pConfigFile: PWideChar; { c:\drivers\PSCRPTUI.DLL }
pHelpFile: PWideChar; { c:\drivers\PSCRPTUI.HLP }
pDependentFiles: PWideChar; { PSCRIPT.DLL\0QMS810.PPD\0PSCRIPTUI.DLL\0PSCRIPTUI.HLP\0PSTEST.TXT\0\0 }
pMonitorName: PWideChar; { "PJL monitor" }
pDefaultDataType: PWideChar; { "EMF" }
pszzPreviousNames: PWideChar ;
end;
{$EXTERNALSYM _DRIVER_INFO_4}
_DRIVER_INFO_4 = _DRIVER_INFO_4A;
TDriverInfo4A = _DRIVER_INFO_4A;
TDriverInfo4W = _DRIVER_INFO_4W;
TDriverInfo4 = TDriverInfo4A;
{$EXTERNALSYM DRIVER_INFO_4A}
DRIVER_INFO_4A = _DRIVER_INFO_4A;
{$EXTERNALSYM DRIVER_INFO_4W}
DRIVER_INFO_4W = _DRIVER_INFO_4W;
{$EXTERNALSYM DRIVER_INFO_4}
DRIVER_INFO_4 = DRIVER_INFO_4A;
이글을 읽어 주신 분께 다시 한번 감사드립니다.
Xp에서는 설치가 잘 되었습니다.
procedure TForm1.FormCreate(Sender: TObject);
var
sDriverPathWin32,sDriverpathWin64 : string;
sDriverFilePath : string;
pDI3 : TDriverInfo3;
bStatus : LongBool ;
begin
:
:
pDI3.cVersion := 3;
pDI3.pName :=PChar('HP LJ 4V');
pDI3.pEnvironment :=PChar(nil);
pDI3.pDriverPath := PChar(sDriverPathWin32 +'GENUXP.DLL');
pDI3.pDataFile := PChar(sDriverPathWin32 +'GENUXPUI.DLL');
pDI3.pConfigFile := PChar(sDriverPathWin32 +'GENUXPUI.DLL');
pDI3.pHelpFile := PChar(sDriverPathWin32 +'GENUXP.HLP');
pDI3.pMonitorName :=PChar('PJL Language Monitor');
pDI3.pDefaultDataType :=PChar('RAW');
bStatus :=AddPrinterDriver(PChar(nil),3,@pDI3 );
if bStatus then begin
ShowMessage('Printer Driver Setup OK');
end else begin
ShowMessage('Printer Driver Setup NG');
end;
end;