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.
// write the application to the Windows run key
procedure AddToStartup(Name, AppPath: string);
var path: string;
begin
FInifile := TRegIniFile.Create('Software');
with FIniFile do
begin
path := 'Software\Microsoft\Windows\CurrentVersion\Run';
RootKey := HKEY_LOCAL_MACHINE;
if ReadString(Path, Name, '') <> AppPath then
WriteString(Path, Name, AppPath);
Free;
end;
end;
//=================================================
//Run/Runonce program at system startup
//=================================================
Procedure OnStartup (const PgmTitle, CmdLine: String; RunOnce: boolean);
Var
Key : String;
Reg : TRegIniFile;
Begin
If RunOnce Then
Key := 'Once' #0
Else
Key := #0;
Reg := TRegIniFile.create ('');
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.WriteString ('Software\Microsoft\Windows\CurrentVersion\Run' + Key,
PgmTitle, CmdLine);
Reg.Free
End;