Fórum Selecionar a impressora q desejo imprimir no rave report #272824

procedure SetDefaultPrinter;
var
  Device : array[0..cchDeviceName] of char;
  Driver : array[0..MAX_PATH] of char;
  DriverPort : string;
  Port : array[0..MAX_PATH] of char;
  hDMode : THandle;
  s : array[0..64] of char;
  WinIni : TIniFile;
  WinIniFileName : array[0..MAX_PATH] of char;
begin
  if PrinterSetupDialog.Execute then
    begin
      Printer.GetPrinter(@Device, @Driver, @Port, hDMode);
      // For some reason "Driver" is never defined here by GetPrinter.
      // Let´s get "Driver,Port" from the Win.INI file "Devices" section
      GetWindowsDirectory(WinIniFileName, SizeOf(WinIniFileName));
      StrCat(WinIniFileName, ´\win.ini´);
      WinIni := TIniFile.Create(WinIniFileName);
      try
        // Lookup Driver,Port in INI file "Devices" section
        DriverPort := WinIni.ReadString(´devices´, Device, ´´);
        // Update INI "Windows" section -- this is the Windows defaultprinter
        WinIni.WriteString(´windows´, ´device´, Device + ´,´ + DriverPort)
      finally
        WinIni.Free
      end;
    // Flush INI cache
    WritePrivateProfileString(NIL, NIL, NIL, WinIniFileName);
    // Broadcast system wide message about win.ini change
    s := ´windows´;
    SendMessage(HWND_BROADCAST, WM_WININICHANGE,0, Cardinal(@s));
  end; 
end;