Cambiar la impresora predeterminada

Cambiar la impresora predeterminada

Cambiar la impresora predeterminada : Multi-millones de consejos para hacer su vida mas facil.

Como cambiar la impresora predeterminada de Windows.
Colaborador: SWAG EQUIPO de APOYO
unidad de Chg_prn
interfaz
utiliza WinTypes, unidades winprocs, Clases, sysutils, impresoras, cuadros de dialogo, mensajes
procedimiento ChangeDefaultPrinter
aplicacion
procedimiento ChangeDefaultPrinter
var szPrinterName, szIniInfo, szSection: PChar
begin
& nbsp & nbsp probar
& nbsp & nbsp & nbsp GetMem(szPrinterName,SizeOf(Char) * 256) {asignar memoria}
& nbsp & nbsp & nbsp GetMem(szIniInfo,SizeOf(Char) * 256)
& nbsp & nbsp & nbsp GetMem(szSection,10)
& nbsp & nbsp & nbsp StrPCopy(szPrinterName, {get nombre para la impresora seleccionada en printerindex}
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Copia(de la Impresora.Impresoras[Impresora.PrinterIndex], 1,
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp Pos('en', de la Impresora.Impresoras[Impresora.PrinterIndex]) - 2 ))
& nbsp & nbsp & nbsp GetProfileString ('DISPOSITIVOS', szPrinterName, nil, szIniInfo, 254) {busque informacion del dispositivo en ganar.ini}

& nbsp & nbsp & nbsp si szIniInfo^ <> #0, entonces
& nbsp & nbsp & nbsp & nbsp & nbsp begin {si el dispositivo se encuentra, entonces..}
& nbsp & nbsp & nbsp & nbsp & nbsp StrCat(szPrinterName,',') {preparar la nueva linea de dispositivos}
& nbsp & nbsp & nbsp & nbsp & nbsp StrCat(szPrinterName,szIniInfo)
& nbsp & nbsp & nbsp & nbsp & nbsp WriteProfileString('Windows','DISPOSITIVO',szPrinterName) {actualizacion del archivo ini}
& nbsp & nbsp & nbsp & nbsp & nbsp StrCopy(szSection,'Windows')
& nbsp & nbsp & nbsp & nbsp & nbsp PostMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(szSection)) {notificar a todas las aplicaciones - ini ha cambiado}
& nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp FreeMem(szPrinterName,SizeOf(Char) * 256) {liberacion de memoria}
& nbsp & nbsp & nbsp FreeMem(szIniInfo,SizeOf(Char) * 256)
& nbsp & nbsp & nbsp FreeMem(szSection,10)
& nbsp excepto
& nbsp & nbsp & nbsp sobre E: EOutOfMemory do ShowMessage(E. Mensaje) {no maneja ninguna memoria para asignar}
& nbsp & nbsp & nbsp sobre E: EInvalidPointer do ShowMessage(E. Mensaje) {maneja mal puntero}
& nbsp final
fin
final.