FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#2
|
||||
|
||||
[quote=caifan_0883;347555]
Código:
procedure TForm1.Button1Click(Sender: TObject); var Size,Count,Index:Cardinal; Items: array[0..2047] of TPrinterInfo5; Default:array[0..255] of char; begin EnumPrinters(PRINTER_ENUM_LOCAL+PRINTER_ENUM_CONNECTIONS,nil,5,@items,Sizeof(Items),Size,Count); GetProfileString('Windows','Device','',@default,sizeof(Default)-1); Index:=0; While Not (Default [Index] in [#0,',']) do Inc(Index); Default[Index]:=#0; For Index:=0 to Count-1 do If not Longbool(lstrcmp(@default,Items[Index].pPrinterName)) Then Begin Messagebox(Handle,Items[Index].PPortname,nil,0); Messagebox(Handle,Items[Index].pPrinterName,Nil,0); End; end; Código:
MiImpresora := String(Items[Index].pPrinterName); |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Guardar cambios y no guardar ayuda!! | THACKER | Varios | 1 | 21-07-2008 17:49:52 |
string de un dbedit a entero para guardar la cadena | Nereida | Varios | 3 | 06-05-2008 15:59:34 |
¿Cómo guardar el Valor de TColor como un String? | nesetru | Gráficos | 3 | 27-02-2004 20:21:32 |
Como guardar en una varible el resultado de un conteo mediante un Query? | Ricsato | SQL | 2 | 16-10-2003 00:38:56 |
Como guardar en una tabla el resultado de un query mostrado en un dbgrid | luisreg | OOP | 3 | 09-10-2003 01:35:01 |
|