Fórum Porta da impressora padrão no windows xp #195979
19/11/2003
0
Eu utilizo em um sistema uma função que verifica a porta da impressora padrão do rWindows, só que esta função não funcionou em nenhuma da maquianas com o rWindows Xp.
A função que utilizo está escrita abaixo
function porta_impressora_padrao :String; // Retorna a impressora padrão do Windows // Requer a unit printers declarada na clausula uses da unit var Device : array[0..255] of char; Driver : array[0..255] of char; Port : array[0..255] of char; hDMode : THandle; begin Printer.GetPrinter(Device, Driver, Port, hDMode); Result := string(port); end;
Grato a todos, Christiano
Chrislou
Curtir tópico
+ 0Posts
05/06/2004
Sourcecode
Gostei + 0
12/10/2004
Walbicudo
Gostei + 0
21/10/2004
Neguta
Em um botão separado vc coloca: PrinterSetupDialog1.Eecute;
- seleciona a impressora e depois vc ativa a função.
Prá mim funconou assim no XP
Gostei + 0
05/11/2004
Luker
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)