Gracias chicos, rápidos y concretos, defino....
Código Delphi
[-]
type FILETYPE_E = (
FILE_PRG = 0,
FILE_TAB,
FILE_PAN,
FILE_SYM);
la función a usar es esta (definida por mi para acceder a la librería)
function OpenNET(name: string; var hPort: integer): FILETYPE_E; cdecl; stdcall; external 'NetCom.dll';
_
y el código
Código Delphi
[-]
var
resultado: FILETYPE_E;
begin
resultado := OpenNET(ip_cnc, hPort);
if resultado <> FILETYPE_E.FILE_PAN then
Exit;
Un saludo