veranderen, hoe de printer, bijdrage aan de buit. EN: de steun van de eenheid chg_prn team,,,,,,,,, interfaces, met wintypes, winprocs, klasse, SysUtils, printers, de dialoog, de boodschap;,,,,,, changedefaultprinter procedures; uitvoering van programma 's changedefaultprinter,,,;,,, var szprintername, sziniinfo, szsection:PChar vormen;,,,,, begon, functie (szprintername, groot (CHAR * 256);} {toegewezen functies (sziniinfo, groot (CHAR * 256 (10); szsection functie,,,,, strpcopy); szprintername, krijgt de naam kiezen printerindex} {printer, een kopie van de printer, (de drukker. [de printer. Printerindex], 1,,, - beginsel (",3. De printer printers]. Printerindex) - 2));,, getprofilestring ('devices ", szprintername, nul, sziniinfo, 254); {winnen - apparatuur informatie. INI),,, als sziniinfo ^ < >� toen begon als apparaat te vinden, en dan... Strcat}, (szprintername,", "); de voorbereiding van de nieuwe apparatuur} {strcat (szprintername lijn,,,,, sziniinfo); writeprofilestring ('windows" apparaat ", szprintername); (INI) vernieuwing,, strcopy (szsection,'windows"); PostMessage (hwnd_broadcast,,, wm_wininichange, 0, LongInt (szsection)); {in kennis te stellen van alle aanvragen - INI veranderen},,,, aan het einde van FreeMem; (szprintername, groot (CHar) * 256); {}, FreeMem geheugen vrij, (sziniinfo, groot (CHAR * 256); FreeMem (szsection,,,,, met uitzondering van 10); in E:eoutofmemory doen, worden (e.message); - behandeling geen geheugen}, in E:einvalidpointer worden (e.message) {aan; slechte punten},,,,,,, aan het einde van het einde,.,.,