× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Autres langages
 besoin d'aide
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
sorin_
  Posté le 08/11/2005 @ 11:43 
Aller en bas de la page 
Petit astucien
salut, j'ai besoin de la meme chose mais en tout sauf delphi svp (c'est pour sauvegarder la configuration de l imprimante) merci { Create a unit PrinterSetup and place code in this unit Do the following to save the printer config to file } procedure TForm1.Button1Click(Sender: TObject); var PrinterSetup: TPrinterSetup begin PrinterSetup := TPrinterSetup.Create; PrinterSetup.SaveSetup(FileName); //where file name is a string to the location of the File ex.'c:\print.cfg' PrinterSetup.Free; end {***********************************} unit PrinterSetup; interface uses printers, windows, SysUtils, Classes, WinSpool; type TPrinterSetup = class private Device, Driver, Port: array[0..CCHDEVICENAME] of char; DeviceMode: THandle; procedure Refresh; protected public procedure SaveSetup(FileName: TFilename); procedure LoadSetup(FileName: TFilename); end; TPrinterConfig = record ADevice, ADriver, APort: array[0..CCHDEVICENAME] of char; SizeOfDeviceMode: DWORD; end; implementation procedure TPrinterSetup.Refresh; begin Printer.GetPrinter(Device, Driver, Port, DeviceMode); end; procedure TPrinterSetup.SaveSetup(FileName: TFilename); var StubDevMode: TDeviceMode; SetupPrinter: TPrinterConfig; FPrinterHandle: THandle; fFileConfig: file of TPrinterConfig; fFileDevMode: file of Char; pDevMode: PChar; Contador: Integer; begin Refresh; with SetupPrinter do begin StrLCopy(ADevice, Device, SizeOf(ADevice)); StrLCopy(ADriver, Driver, SizeOf(ADriver)); StrLCopy(APort, Port, SizeOf(APort)); OpenPrinter(Device, FPrinterHandle, nil); SizeOfDeviceMode := DocumentProperties(0, FPrinterHandle, Device, StubDevMode, StubDevMode, 0); end; AssignFile(fFileConfig, FileName); ReWrite(fFileConfig); Write(fFileConfig, SetupPrinter); CloseFile(fFileConfig); AssignFile(fFileDevMode, FileName); Reset(fFileDevMode); Seek(fFileDevMode, FileSize(fFileDevMode)); pDevMode := GlobalLock(DeviceMode); for Contador := 0 to SetupPrinter.SizeOfDeviceMode - 1 do begin Write(fFileDevMode, pDevMode[Contador]); end; CloseFile(fFileDevMode); GlobalUnLock(DeviceMode); end; procedure TPrinterSetup.LoadSetup(FileName: TFilename); var SetupPrinter: TPrinterConfig; fFileConfig: file of TPrinterConfig; fFileDevMode: file of Char; ADeviceMode: THandle; pDevMode: PChar; Contador: Integer; begin if FileExists(FileName) then begin AssignFile(fFileConfig, FileName); Reset(fFileConfig); read(fFileConfig, SetupPrinter); CloseFile(fFileConfig); AssignFile(fFileDevMode, FileName); Reset(fFileDevMode); Seek(fFileDevMode, SizeOf(SetupPrinter)); ADeviceMode := GlobalAlloc(GHND, SetupPrinter.SizeOfDeviceMode); pDevMode := GlobalLock(ADeviceMode); for Contador := 0 to SetupPrinter.SizeOfDeviceMode - 1 do begin read(fFileDevMode, char(pDevMode[Contador])); end; CloseFile(fFileDevMode); GlobalUnLock(ADeviceMode); Printer.SetPrinter(SetupPrinter.ADevice, SetupPrinter.ADriver, SetupPrinter.APort, ADeviceMode); end; end;
Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
22,17 €Souris sans fil Logitech M280 à 22,17 €
Valable jusqu'au 15 Août

Amazon fait une petite promotion sur la souris sans fil Logitech M280 qui passe à 22,17 €. On la trouve ailleurs à partir de 30 €. Sa forme profilée est adaptée aux droitiers. Son autonomie est de 18 mois (pile AA que vous pourrez remplacer).


> Voir l'offre
69,99 €Assistant vocal Amazon Echo Show 5 avec Alexa à 69,99 €
Valable jusqu'au 12 Août

Amazon fait une promotion sur l'assistant vocal Amazon Echo Show 8 qui passe à 69,99 € (au lieu de 89,99 €). L'appareil piloté par la voix et vos doigts fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourrez avec elle écouter de la musique, interagir avec vos appareils domotiques, écouter les infos, des livres audio la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Grâce à son écran de 5,5 pouces, vous pourrez également regarder des séries, des films, des photos, afficher des recettes de cuisine, appeler vos amis en visio, contrôler vos caméras de sécurité, etc...


> Voir l'offre
19,99 €Clé USB 3.0 et Micro USB Sandisk Ultra OTG 128 Go à 19,99 €
Valable jusqu'au 12 Août

Amazon fait une promotion la nouvelle version de la clé USB 3.0 SanDisk Dual Drive 128 Go qui passe à 19,99 €. La particularité de cette clé USB réside dans le fait qu'elle dispose à la fois d'un connecteur USB pour la brancher sur votre ordinateur ou votre TV, mais également d'un connecteur micro USB pour la brancher sur votre smartphone ou votre tablette. Compatible USB 3.0 (et 2.0), cette clé USB offre des débits jusqu'à 150 Mo/s. 


> Voir l'offre

Sujets relatifs
Besoin d'aide avec php mysql important
Besoin d'aide VB sous Excel
besoin d'aide c++
[SQL access] besoin d'aide pour une requete
besoin de votre aide
besoin d'aide svp
Besoin d'aide
besoin d'aide sur un client d'un jeu
Besoin d'aide pour un programme
bonjour besoin de votre aide programme java
Plus de sujets relatifs à besoin d''aide
 > Tous les forums > Forum Autres langages