On 2/15/2018 11:57 AM, Michael Eriksen wrote:

Try this. It is pulling pieces from TPrinters GetDefaultPrinter to only get the
name

uses
   WinAPI.WinSpool;
 
{$IF DEFINED(UNICODE) AND DEFINED(MSWINDOWS)}
function GetDefaultPrinter(DefaultPrinter: PChar; var I: Integer): BOOL; stdcall;
   external winspl name 'GetDefaultPrinterW';
{$ENDIF}
 
function GetDefaultPrinterName : string;
var
   DefaultPrinter: array[0..1023] of Char;
   i : Integer;
begin
{$IF DEFINED(UNICODE)}
   I := Length(DefaultPrinter);
   if not GetDefaultPrinter(DefaultPrinter, I) then
     ZeroMemory(@DefaultPrinter[0], I * SizeOf(Char));
{$ELSE}
   GetProfileString('windows', 'device', '', DefaultPrinter, 
SizeOf(DefaultPrinter) - 1);
{$ENDIF}
   Result := DefaultPrinter;
end;

--
Jeff Overcash (TeamB)
(Please do not email me directly unless asked. Thank You)
Learning is finding out what you already know. Doing is demonstrating that you
know it. Teaching is reminding others that they know it as well as you. We are
all leaners, doers, teachers. (R Bach)

On 2/15/2018 1:16 PM, Remy Lebeau (TeamB) wrote:

No idea, but that way you can find in google back in 2002 so I just assume old
legacy code that no one ever looked at to update. The signature for
GetDefaultPrinter (the Integer signature isn't a Var, but an int pointer IIRC
from looking at it earlier) is slightly different so instead of playing with it
to use the WinSpool definition I just did exactly what was going on in Printers.

--
Jeff Overcash (TeamB)
(Please do not email me directly unless asked. Thank You)
Learning is finding out what you already know. Doing is demonstrating that you
know it. Teaching is reminding others that they know it as well as you. We are
all leaners, doers, teachers. (R Bach)