Código Delphi [-] var ... str : string; ... begin ... SetLength(str, 100); error := ConsultarVersionDll( PChar(str), Length(str), mayor, menor ); .... end;
var ... str : string; ... begin ... SetLength(str, 100); error := ConsultarVersionDll( PChar(str), Length(str), mayor, menor ); .... end;