Realmente Desesperado
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
Necesito que alguien pudiera ayudarme i me digera como puedo conseguir ahora el puerto.
Lo he preguntado en muchos sitios, y ya estoy realmente desesperado.
Muchas gracias de antemano
Un saludo.
|