Mirosoft Graph Api Auth Code

[oakley]

Okay ich weiß wie ich an den AuthCode komme. Die RedirectURI von MS gibt den direkt zurück, ich kann ihn auslesen und damit einen dementsprechenden Token bekommen.
Über den TWebbrowser geht das ganze auch.

Ich baue mir also folgenden URL String zusammen:

Code:

    UrlStr := 'https://login.microsoftonline.com/{meine tenant id}/oauth2/v2.0/authorize' +
    '?client_id={meine client id}' +
    '&response_type=code' +
    '&redirect_uri={meine redirect uri}' +
    '&response_mode=query' +
    '&scope=User.Read offline_access' +
    '&state=2020';

Wie gesagt im TWebbrowser geht das, wenn ich allerdings den Edge öffnen lassen will:

Code:

ShellExecute(Application.Handle, 'open', PChar('cmd.exe'), PChar('/c "start microsoft-edge:' + URLStr + '"'), nil, SW_SHOWNORMAL);  //Open link in browser

Schneidet er den URL String beim ersten & Zeichen ab.

Weiß jemand woran das liegt?

Den korrekten String in ein Memo geschrieben und dann per Copy/Paste in die Adresszeile des Edge und es läuft einwandfrei.
Ich möchte gerne den Edge verwenden, weil der mich fragt, ob ich angemeldet bleiben möchte, was der TWebbrowser nicht macht.

LG

Mirko