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.

Si seleccionas la palabra GetPrinter y pulsas Ctrl + F1.

Obtendrás toda la ayuda sobre dicha función, si pulsas sobre QUICKINFO, verás que la función es soportada por Windows 95, Windows NT, no por Windows 32s.

El problema de utilizar funciones del API de Windows es que al cambiar la versión de Windows no está garantizado que funcionen de igual manera, incluso puede ocurrir que no funcionen.

Habría que saber que función substituye a ésta en Windows Xp, yo no tengo la respuesta, pero creo que por ahí está el problema.

Un Saludo.