unit PrinterSettings;
interface
uses windows, sysutils, classes, messages ;
function GetDefaultPrinterA(prnName : PAnsiChar;
var bufSize : DWORD ) : BOOL;
stdcall;
external '
winspool.drv'
name '
GetDefaultPrinterA';
type
TPrinterSettings =
class
private
function getDefaultPrinterName:
string;
procedure SetDefaultPrinterName(
const Value:
string);
public
property DefaultPrinterName :
string read GetDefaultPrinterName
write SetDefaultPrinterName ;
end ;
var
PS : TPrinterSettings ;
implementation
uses printers ;
function TPrinterSettings.getDefaultPrinterName:
string;
begin
try
Result := Printer.Printers[Printers.Printer.PrinterIndex] ;
except
Result := '
' ;
end ;
end;
procedure TPrinterSettings.SetDefaultPrinterName(
const Value:
string);
var
Device:
array[0..255]
of char;
Driver:
array[0..255]
of char;
Port:
array[0..255]
of char;
hDeviceMode: THandle;
begin
if Printer.Printers.IndexOf (Value) >= 0
then begin
Printer.PrinterIndex := Printer.Printers.IndexOf (Value) ;
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
StrCat( Device, '
,');
StrCat( Device, Driver );
StrCat( Device, '
,');
StrCat( Device, Port );
WriteProfileString( '
windows', '
device', Device );
StrCopy( Device, '
windows' );
SendMessage( HWND_BROADCAST, WM_WININICHANGE, 0, longint( @Device ));
sleep (300) ;
end else begin
end ;
end;
initialization
PS := TPrinterSettings.create ;
finalization
PS.free ;
end.