|
NO HAY NADIE QUE LO SEPA.Problemas con puertos con win xp
function Tform1.capturapuerto :String;
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
hDMode : THandle;
begin
Printer.PrinterIndex := -1; // -1 o el que sea
Printer.GetPrinter(Device, Driver, Port, hDMode);
Result := Device+' Puerto: '+Port;
Pues bien, esta funcion, con windows xp no me devuelve los puertos.Port no me devuelve nada. En win 98 me funcionaba correctamente
Alguien tiene idea de porque pasa??
Muchas gracias de antemano
Un saludo.
Última edición por Descendents fecha: 28-05-2003 a las 10:17:56.
|