3. Dezember 2018 15:33
ServerInstance.RESET;
ServerInstance.SETRANGE("Server Instance ID",SERVICEINSTANCEID);
IF ServerInstance.FINDFIRST THEN BEGIN
CLEAR(Registry);
FileName := Registry.GetValue('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Microsoft.Dynamics.Nav.Client.exe','','');
//Page öffnen bei Start RTC, aber keine neue Instanz
Argument := '"dynamicsnav://'+ServerInstance."Server Computer Name"+':'+FORMAT(ServerInstance."Server Port")+'/'+ServerInstance."Service Name"+'/'
+COMPANYNAME+'/runpage?page=67028"';
//Start einer neuen RTC Instanz
//Argument := '"dynamicsnav://'+ServerInstance."Server Computer Name"+':'+FORMAT(ServerInstance."Server Port")+'/'+ServerInstance."Service Name"+'/'
// +COMPANYNAME+'/"';
CLEAR(Process);
Process := Process.Process();
Process.StartInfo.UseShellExecute := FALSE;
Process.StartInfo.FileName := FileName; // path to program
Process.StartInfo.Arguments := Argument;
Process.Start();
END;
3. Dezember 2018 16:07
4. Dezember 2018 09:30
4. Dezember 2018 10:06
4. Dezember 2018 12:46
4. Dezember 2018 12:57
4. Dezember 2018 13:08