Implementar Wapt mediante GPO

23 de marzo de 2018 - 12:31

Mientras tanto, puedes realizar cambios:

function RelocateCertDirWaptBase(Param: String):String;
var
  certdir: String;
begin
  certdir := ExpandConstant('{param:verify_cert|{#set_verify_cert}}');
  if (pos('c:\tranquilit\wapt',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\tranquilit\wapt')+1,255)
  else if (pos('c:\program files (x86)\wapt',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files (x86)\wapt')+1,255)
  else if (pos('c:\program files\wapt\',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files\wapt\')+1,255)
  else if (pos('c:\wapt\',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\wapt\')+1,255)
  else
    result := certdir;
end;

por :

Código: Seleccionar todo

function RelocateCertDirWaptBase(Param: String):String;
var
  certdir: String;
begin
  certdir := ExpandConstant('{param:verify_cert|{#set_verify_cert}}');
  if (pos('c:\tranquilit\wapt',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\tranquilit\wapt')+1,255)
  else if (pos('c:\program files (x86)\wapt',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files (x86)\wapt')+1,255)
  else if (pos('c:\program files\wapt\',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\program files\wapt\')+1,255)
  else if (pos('c:\wapt\',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('c:\wapt\')+1,255)
  else if (pos('d:\wapt\',lowercase(certdir))=1) then
    result := ExpandConstant('{app}')+'\'+copy(certdir,length('d:\wapt\')+1,255)

  else
    result := certdir;
end;

Artillero · 29 de marzo de 2018 - 08:48

Hola,

gracias, funcionó con esta modificación.
Tengo otro problema, esta vez con la consola; abriré un nuevo hilo si no encuentro una solución en otro lugar.