function TfrxPrinters.GetDefaultPrinter: String;
var
  prnName: array[0..255] of Char;
begin
  GetProfileString('windows', 'device', '', prnName,  255);
  Result := Copy(prnName, 1, Pos(',', prnName) - 1);
end;

  TfrxGetDefaultPrinter = function (DefaultPrinter: PChar; var I: Integer): BOOL; stdcall;

function TfrxPrinters.GetDefaultPrinter: String;
const 
  winspoolDrv = 'winspool.drv';
  {$IFDEF DELPHI12}
    GetDefPrinter = 'GetDefaultPrinterW';
  {$ELSE}
    GetDefPrinter = 'GetDefaultPrinterA';
  {$ENDIF}
var
  prnName: array[0..255] of Char;
  Ver: TOsVersionInfo;
  FLibHandle: THandle;
  GetDefPrn: TfrxGetDefaultPrinter;
  prnBuffSize: Integer;
begin
  Ver.dwOSVersionInfoSize := SizeOf(Ver);
  GetVersionEx(Ver);

  if (Ver.dwPlatformId = VER_PLATFORM_WIN32_NT) and (Ver.dwMajorVersion >= 5) then
  begin
    prnBuffSize := 0;
    FLibHandle := LoadLibrary(winspoolDrv);
    if (FLibHandle > 0) and (FLibHandle < HINSTANCE_ERROR) then FLibHandle := 0;
    if FLibHandle <> 0 then
    begin
      GetDefPrn := GetProcAddress(FLibHandle, GetDefPrinter);
      if Assigned(GetDefPrn) then
      begin
        GetDefPrn(nil, prnBuffSize);
        if (prnBuffSize > 0) then
        begin
          SetLength(Result, prnBuffSize);
          GetDefPrn(@Result[1], prnBuffSize);
          Exit;
        end;
      end;

    end;
    end;

  GetProfileString('windows', 'device', '', prnName, 255);
  Result := Copy(prnName, 1, Pos(',', prnName) - 1);

end;