Descendents
26-05-2003, 16:27:57
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.
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.