Modifier la valeur par défaut de l'imprimante

Modifier la valeur par defaut de l'imprimante

Modifier la valeur par defaut de l'imprimante : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour modifier l'imprimante par defaut de Windows.
Contributeur: SWAG EQUIPE de SOUTIEN
unite de Chg_prn
interface
utilise WinTypes, WinProcs, Classes, sysutils, des imprimantes, des dialogues, des messages
procedure ChangeDefaultPrinter
application
procedure ChangeDefaultPrinter
var szPrinterName, szIniInfo, szSection: PChar
begin
& nbsp & nbsp essayer
& nbsp & nbsp & nbsp GetMem(szPrinterName,SizeOf(Char) * 256) {allouer de la memoire}
& nbsp & nbsp & nbsp GetMem(szIniInfo,SizeOf(Char) * 256)
& nbsp & nbsp & nbsp GetMem(szSection,10)
& nbsp & nbsp & nbsp StrPCopy(szPrinterName, {nom pour l'imprimante selectionnee dans printerindex}
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Copie(de l'Imprimante.Les Imprimantes[Imprimante.PrinterIndex], 1,
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp Pos('on', Imprimante.Les Imprimantes[Imprimante.PrinterIndex]) - 2 ))
& nbsp & nbsp & nbsp GetProfileString ('APPAREILS', szPrinterName, neant, szIniInfo, 254) {localiser les infos sur l'appareil en gagner.ini}

& nbsp & nbsp & nbsp si szIniInfo^ <> #0, alors
& ! & ! & ! & ! & nbsp begin {si l'appareil est trouve, alors..}
& ! & ! & ! & ! & nbsp StrCat(szPrinterName,',') {preparer un nouvel appareil ligne}
& ! & ! & ! & ! & nbsp StrCat(szPrinterName,szIniInfo)
& ! & ! & ! & ! & nbsp WriteProfileString('Windows','DEVICE',szPrinterName) {mise a jour du fichier ini}
& ! & ! & ! & ! & nbsp StrCopy(szSection,'Windows')
& ! & ! & ! & ! & nbsp PostMessage(HWND_BROADCAST,WM_WININICHANGE,0,LongInt(szSection)) {notifier toutes les applications - ini a change}
& nbsp & nbsp & nbsp fin
& nbsp & nbsp & nbsp FreeMem(szPrinterName,SizeOf(Char) * 256) {liberer de la memoire}
& nbsp & nbsp & nbsp FreeMem(szIniInfo,SizeOf(Char) * 256)
& nbsp & nbsp & nbsp FreeMem(szSection,10)
& nbsp a l'exception de
& nbsp & nbsp & nbsp E: EOutOfMemory ne ShowMessage(E. Message) {gere pas de memoire a allouer}
& nbsp & nbsp & nbsp E: EInvalidPointer ne ShowMessage(E. Message) {poignees de mauvais pointeur}
& nbsp fin
fin
a la fin.