Impressora Padrão do Windows

Esta função é simples mas de grande utilidade na programação, principalmente quando precisa se saber qual é a impressora padrão do Windows.

Para esta função funcionar precisa declarar nas uses a classe Printers.
Segue abaixo a função que retorna a impressora padrão do windows.

function ImpressoraPadrao :String;
// Retorna a impressora padrão do windows
var
   Device : array[0..255] of char;
   Driver : array[0..255] of char;
   Port   : array[0..255] of char;
   hDMode : THandle;
begin
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   Result := Device;
end;


Ex de como usar : Label1.Caption := ImpressoraPadrao;