Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
var
SEinfo: TShellExecuteInfo;
startinstring: String;
CreateOK: Boolean;
ErrorCode: DWord;
begin
ErrorCode := 0;
startinstring := '';
FillChar(SEInfo, SizeOf(SEInfo), 0) ;
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
lpFile := PChar(ExecuteFile) ;
lpParameters := PChar(ParamString) ;
lpDirectory := PChar(StartInString) ;
nShow := SW_SHOWNORMAL;
end;
CreateOK := ShellExecuteEx(@SEInfo);
WaitForInputIdle(SEInfo.hProcess, INFINITE);
if CreateOK then
procid := SEInfo.hProcess;
GetExitCodeProcess(SeInfo.hProcess, ErrorCode);
end;