Mientras responde
movorack...
Dices que la función es:
Código Delphi
[-]function DeviceCapabilitiesA(pDevice, pPort: LPCSTR; fwCapability: Word;
pOutput: LPSTR; DevMode: PDeviceModeA): Integer; stdcall;
Sin embargo, creo que la llamas con los parámetros cambiados de orden:
Código Delphi
[-]if DeviceCapabilitiesA(PAnsiChar(Device), PAnsiChar(DeviceName),
PAnsiChar(Port), DC_DUPLEX, nil, nil) = 1 then
Aparte de eso, lo mismo puede que funcione de la forma:
PAnsiChar(AnsiString())