Standarddrucker ändern

Standarddrucker ändern

Standarddrucker ändern : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Wie Sie den Windows-Standarddrucker ändern.
Autor: SWAG-SUPPORT-TEAM
Einheit Chg_prn;
Schnittstelle
verwendet, WinTypes, WinProcs, Classes, Sysutils, Drucker, Dialoge, Nachrichten;
Prozedur ChangeDefaultPrinter;
Umsetzung
Prozedur ChangeDefaultPrinter;
Var SzPrinterName, SzIniInfo, SzSection: PChar;
beginnen
versuchen Sie
GetMem(szPrinterName,SizeOf(Char) * 256); {Speicherzuweisung}
GetMem(szIniInfo,SizeOf(Char) * 256);
GetMem(szSection,10);
StrPCopy (SzPrinterName, {Get Name für Drucker ausgewählt in Printerindex}
Kopie (Printer.Printers [Printer.PrinterIndex], 1,
POS ('an' und Printer.Printers[Printer.PrinterIndex]) - 2));
GetProfileString ('Geräte', SzPrinterName, NULL, SzIniInfo, 254); {Suchen Sie Geräteinformationen in 'Win.ini'}

Wenn SzIniInfo ^ <> #0 dann
BEGIN {wenn Gerät dann gefunden,..}
StrCat(szPrinterName,','); {bereiten Sie neuen Device-Zeile}
StrCat(szPrinterName,szIniInfo);
WriteProfileString('Windows','DEVICE',szPrinterName); {Update-Ini-Datei}
StrCopy(szSection,'Windows');
PostMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(szSection)); {Benachrichtigen Sie alle apps - Ini geändert hat}
Ende;
FreeMem(szPrinterName,SizeOf(Char) * 256); {Version Speicher}
FreeMem(szIniInfo,SizeOf(Char) * 256);
FreeMem(szSection,10);
mit Ausnahme von
Führen Sie auf E: EOutOfMemory ShowMessage(E.Message); {behandelt keinen Speicher zuweisen}
Führen Sie auf E: EInvalidPointer ShowMessage(E.Message); {Griffe schlecht Zeiger}
Ende;
Ende;
Ende.