How RUN GoogleChrome an not the I.E

[ric_rio]

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..

 

 

 

 

[Sherzod]

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.

[ric_rio]

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..

[skafy]

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);
  

[fikret]

 

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 ;-)

[ric_rio]

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