Que tal compañeros foreros:
Aqui tengo una cuestion que a lo mejor es sencilla pero yo no doy con bolas, por eso acudo a ustedes.
Encontre un codigo el cual saca el nombre de la impresora predeterminada. Pero esta la muestra con un messagebox, el detalle es que lo quiero guardar en una variable tipo string. Les dejo el codigo saludos..
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;
En si lo que aparece en el Messagebox quisiera guardarlo en la variable string..
Saludos y gracias anticipadas.