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.