ric_rio Posted June 22, 2016 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
Sherzod Posted June 22, 2016 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
ric_rio Posted June 22, 2016 Author 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
skafy Posted June 23, 2016 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
fikret Posted June 23, 2016 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
ric_rio Posted June 23, 2016 Author 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
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.