No NT, W2K e no XP ela não funciona viu []s
Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: Gabriel Ferrarini [mailto:[EMAIL PROTECTED] > Enviada em: segunda-feira, 28 de março de 2005 15:17 > Para: Delphi-BR > Assunto: [delphi-br] Status da Impressora > > > > Olá a todos. > Estou usando a rotina abaixo (enviada por um mebro da lista) > para capturar o status da impressora. Utilizo Win98. > > function ImpressoraOnLine: Cardinal; > var > hPrinter : THandle; > pInfo : PPrinterInfo2; > bytesNeeded : DWORD; > begin > hprinter := GetCurrentPrinterHandle; > try > Winspool.GetPrinter(hPrinter, 2, Nil, 0, @bytesNeeded); > pInfo := AllocMem(bytesNeeded ); > try > Winspool.GetPrinter(hPrinter, 2, pInfo, bytesNeeded, > @bytesNeeded); > Result := pInfo^.Status; > finally > FreeMem(pInfo); > end; > finally > ClosePrinter(hPrinter); > end; > end; > > function GetCurrentPrinterHandle: THandle; > var > Device, Driver, Port : array[0..255] of char; > hDeviceMode: THandle; > begin > Printer.GetPrinter(Device, Driver, Port, hDeviceMode); > if not OpenPrinter(@Device, Result, nil) then > RaiseLastWin32Error; > end; > > Porém, meu pInfo^.Status retorna sempre 0. > > Alguém já passou por isso? > Gabriel. > > [As partes desta mensagem que não continham texto foram removidas] > > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > Para ver as mensagens antigas, acesse: > http://br.groups.yahoo.com/group/delphi-br/messages > > Para falar com o moderador, envie um e-mail para: > [EMAIL PROTECTED] ou [EMAIL PROTECTED] > > Links do Yahoo! Grupos > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html