ric_rio Posted June 22, 2016 Share Posted June 22, 2016 Hello.. I have two doubts. 1st) how to run google chrome and not I.E ?? 2nd) where I find the example Layout Management -> Accordion Layout ?? Tanks.. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted June 22, 2016 Share Posted June 22, 2016 1st) how to run google chrome and not I.E ?? Hi, if I understand correctly you, try: uses ... UniGUIApplication; procedure TMainForm.UniFormActivate(Sender: TObject); var ClientInfo: TUniClientInfos; begin ClientInfo := UniApplication.ClientInfo; if not (ciChrome in ClientInfo) then UniApplication.Terminate('sorry...'); end; Best regards. Quote Link to comment Share on other sites More sharing options...
ric_rio Posted June 22, 2016 Author Share Posted June 22, 2016 Excuse me if not expressed myself correctly. when Unigui SERVER begins, it calls the I.E (default browser). I wish he called the CHROME. Tanks.. Quote Link to comment Share on other sites More sharing options...
skafy Posted June 23, 2016 Share Posted June 23, 2016 Put something like this in project source FileName:= 'C:\Chrome\GoogleChromePortable\GoogleChromePortable.exe'; if extractFileExt(GetModuleName(Hinstance))='.exe' then ShellExecute(Application.Handle, PChar('Open'), PChar(FileName), PChar('Http://localhost:8077'), Nil,SW_Show); Quote Link to comment Share on other sites More sharing options...
fikret Posted June 23, 2016 Share Posted June 23, 2016 Excuse me if not expressed myself correctly. when Unigui SERVER begins, it calls the I.E (default browser). I wish he called the CHROME. Tanks.. Set Chrome to be default browser ;-) Quote Link to comment Share on other sites More sharing options...
ric_rio Posted June 23, 2016 Author Share Posted June 23, 2016 Thank you all for your help this code is perfect begin Application.Initialize; TUniServerModule.Create(Application); if extractFileExt(GetModuleName(Hinstance) ) ='.exe' then shellExecute(Application.Handle, PChar('Open'), 'C:\Program Files (x86)\Google\Chrome\Application\chrome.exe', PChar('Http://127.0.0.1:8077'), Nil, SW_Show); // Application.Run; end. Thank you skafy Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.