Distribuisci Wapt tramite GPO

23 marzo 2018 - 12:31

Nel frattempo, puoi apportare modifiche:

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;

di :

Codice: Seleziona tutto

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;

Fuciliere d'artiglieria · 29 marzo 2018 - 08:48

Ciao,

grazie, questa modifica ha funzionato.
Sto riscontrando un altro problema, questa volta con la console; aprirò una nuova discussione se non trovo una soluzione altrove.