Drucker auswählen mit PrinterIndex

[Hansa]

Mal sehen, wie ich das mache. So :

Delphi-Quellcode:

  Ini := TIniFile.Create (ExtractFilePath (ParamStr (0)) + 'CONST.INI');;
  (*$IFNDEF DEMO*)
    if dlgDrucker.Execute then begin
      if MessageBox(Self.Handle, 'Drucker standardmäßig für Programm benutzen ?',
                    'Information', MB_ICONINFORMATION or MB_YESNOCANCEL) = idYes then begin
        DruckerName := Printer.Printers [Printer.PrinterIndex];
        Ini.WriteString('Standardvorgaben','Windows - Drucker',DruckerName);
        showmessage ('aktiver Drucker ab jetzt : ' + DruckerName);
      end;
    end;
  (*$ELSE*)
    showmessage ('Demo - Version : Drucker ist immer Windows - Standardrucker !');
    DruckerName := GetDefaultPrinter;
    DruckerDateiName := 'STANDARD.INI';
    Ini.WriteString('Standardvorgaben','Drucker - Dateiname',DruckerDateiName);
  (*$ENDIF*)
  Ini.Free;
  sbDrucker.SimpleText := 'Drucker : ' + DruckerName;

Quelltext dürfte wohl klar sein.