diff --git a/backup/main.pas b/backup/main.pas index c9f69eb..9424e78 100644 --- a/backup/main.pas +++ b/backup/main.pas @@ -3174,6 +3174,8 @@ end; procedure TGUIForm.FSTimerTimer(Sender: TObject); begin isFS := (GetConfig( 'video/current.fullscreen' ) = '1'); + + SimpleGet(baseUrl+'/api/control/system/heartbeat'); end; procedure TGUIForm.InputClick(Sender: TObject); @@ -3288,11 +3290,8 @@ begin exit; if MicroM8Process.Active then exit; - { okay not running and we want to start it } - MicroM8Process.Active := true; - Sleep(1000); - lx := -1; - ReposWindow; + { okay not running and we want to quit } + Application.Terminate; end; end. diff --git a/lib/x86_64-win64/main.o b/lib/x86_64-win64/main.o index 48ed589..fd92f7e 100644 Binary files a/lib/x86_64-win64/main.o and b/lib/x86_64-win64/main.o differ diff --git a/lib/x86_64-win64/main.ppu b/lib/x86_64-win64/main.ppu index 33fb496..11ab0ea 100644 Binary files a/lib/x86_64-win64/main.ppu and b/lib/x86_64-win64/main.ppu differ diff --git a/lib/x86_64-win64/poc.obj b/lib/x86_64-win64/poc.obj index 1f10993..917fb9b 100644 Binary files a/lib/x86_64-win64/poc.obj and b/lib/x86_64-win64/poc.obj differ diff --git a/main.pas b/main.pas index cc04452..13a3d81 100644 --- a/main.pas +++ b/main.pas @@ -3174,6 +3174,8 @@ end; procedure TGUIForm.FSTimerTimer(Sender: TObject); begin isFS := (GetConfig( 'video/current.fullscreen' ) = '1'); + if not hidden then + SimpleGet(baseUrl+'/api/control/system/heartbeat'); end; procedure TGUIForm.InputClick(Sender: TObject);