diff --git a/Tocsg.Module/UserAuthentification/UserAuthentification.pas b/Tocsg.Module/UserAuthentification/UserAuthentification.pas index f91aa434..6dd6dbe6 100644 --- a/Tocsg.Module/UserAuthentification/UserAuthentification.pas +++ b/Tocsg.Module/UserAuthentification/UserAuthentification.pas @@ -4,7 +4,7 @@ interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, - Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Winapi.ShellAPI, superobject, IdHTTP, IdSSLOpenSSL, System.Math, System.IOUtils, System.RegularExpressions, Tocsg.Safe, Tocsg.COLib, Tocsg.COLib.Encrypt; @@ -216,11 +216,15 @@ begin if sResult = 'true' then begin var sUrl := O.S['passwordChangeUrl']; - showmessage(sUrl); - sResult := GetPostData(sDestIPort, sUrl, O.AsJSon); + if sUrl.StartsWith('/') then + sUrl := sUrl.Substring(1); + + var sFullUrl := sDestIPort + sUrl; + ShellExecute(0, 'open', PChar(sFullUrl), nil, nil, SW_SHOWNORMAL); + //sResult := GetPostData(sDestIPort, sUrl, O.AsJSon); end; - MessageBox(0, LPCWSTR(sResult), 'BSOne Login', MB_ICONINFORMATION or MB_TOPMOST or MB_SETFOREGROUND); + //MessageBox(0, LPCWSTR(sResult), 'BSOne Login', MB_ICONINFORMATION or MB_TOPMOST or MB_SETFOREGROUND); exit; end else