Código Delphi [-] var s: string; begin {...} GetDeviceProperty( PChar(s) ); end;
var s: string; begin {...} GetDeviceProperty( PChar(s) ); end;