Hvordan endre standard Windows printer.Contributor: SWAG SUPPORT TEAMunit Chg_prn; interfaceuses WinTypes, WinProcs, kurs, sysutils, skrivere, dialoger, meldinger, prosedyre ChangeDefaultPrinter, implementationprocedure ChangeDefaultPrinter; Var szPrinterName, szIniInfo, szSection: PChar; begynne prøve GetMem (szPrinterName, sizeof (Char) * 256); {Allokere minne} GetMem (szIniInfo, sizeof (Char) * 256); GetMem (szSection, 10); StrPCopy (szPrinterName, {få navnet til skriveren som er valgt i printerindex} Kopier (Printer.Printers [Printer.PrinterIndex], 1, Pos ( "på", Printer.Printers [Printer.PrinterIndex]) - 2)); GetProfileString ( 'enheter' szPrinterName, nil, szIniInfo, 254); {Finne enheten info i win.ini} hvis szIniInfo ^ < > # 0 da begynne {if enhet som finnes, da ..} strcat (szPrinterName, ','); {Forberede nye enheten linje} strcat (szPrinterName, szIniInfo); WriteProfileString ( 'Windows', 'enhet "szPrinterName); {Oppdatere INI-filen} StrCopy (szSection, 'Windows'); Postmessage (HWND_BROADCAST, WM_WININICHANGE, 0, LongInt (szSection)); {Varsle alle apps - ini har endret} ende; FreeMem (szPrinterName, sizeof (Char) * 256); {Utgivelsen minne} FreeMem (szIniInfo, sizeof (Char) * 256); FreeMem (szSection, 10); unntatt på E: EOutOfMemory gjøre ShowMessage (E.Message); {Håndterer noe minne til å tildele} på E: EInvalidPointer gjøre ShowMessage (E.Message); {Håndterer dårlig pekeren} ende, slutt, slutten
.