Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Autostart RUN und RUNONCE (https://www.delphipraxis.net/187979-autostart-run-und-runonce.html)

surfer007 20. Jan 2016 20:08

Autostart RUN und RUNONCE
 
Hallo,

ich starte meine Anwendung via Registry RUNONCE und zur Sicherheit nochmal in der RUN Sektion, klappt auch soweit gut. RUNONCE damit meine Anwendung die aller erste Anwendung beim Windows Start ist. Nun habe ich einen Kunden mit Windows10 der meint nach einem Power Off startet die Anwendung (Kiosk) meist nicht. Also irgendwas löscht den RUN und RUNONCE Eintrag. Ja, der RUNONCE wird von meiner Anwendung nach dem Start wieder angelegt, ist also da! User ist Administrator und UAC Anforderung ist als Manifest drin. Bei Tests in einer VM mit Win10 konnte ich nichts feststellen, bei mir funktioniert es immer. Das ist der Code der die Start Einträge anlegt:

Delphi-Quellcode:
   
   
    // HKEY_LOCAL_MACHINE
   
    if TPJOSInfo.IsWow64 then begin
      MyPrg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);
    end else begin
      MyPrg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_32KEY);
    end;
      MyPrg.Rootkey := HKEY_LOCAL_MACHINE;
      MyPrg.LazyWrite := false;
      try
        try
          if MyPrg.Openkey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true) then begin
            MyPrg.WriteInteger('DisableLocalUserRunOnce', 0);
          end;
        except
          MyLogAdd('Error writing registry: DisableLocalUserRunOnce', False);
        end;
      finally
        MyPrg.CloseKey;
      end;

      try
        try
          if MyPrg.Openkey('Software\Microsoft\Windows\CurrentVersion\RunOnce', true) then begin
            MyPrg.WriteString('!KioskStart', '"' + sPath + 'kioskstart.exe"');
          end;
        except
          MyLogAdd('Error writing registry: !KioskStart', False);
        end;
      finally
        MyPrg.CloseKey;
      end;

      try
        try
          if MyPrg.Openkey('Software\Microsoft\Windows\CurrentVersion\Run', true) then begin
            MyPrg.WriteString('Kiosk', '"' + sPath + 'kiosk.exe" /bootstart');
          end;
        except
          MyLogAdd('Error writing registry: Kiosk', False);
        end;
      finally
        MyPrg.CloseKey;
      end;
    MyPrg.Free;
Hat jemand einen Tipp warum das auf Win10 nach einem Power Off nicht mehr startet?

Luckie 20. Jan 2016 21:01

AW: Autostart RUN und RUNONCE
 
Wird dein Programm denn korrekt beendet? Hat es den noch die Möglichkeit den Wert in die Registry zu schreiben?

Sir Rufo 20. Jan 2016 21:51

AW: Autostart RUN und RUNONCE
 
RunOnce => Beim nächsten Systemstart einmal starten

und nicht "wird als erstes gestartet".

Für den Kiosk-Mode solltest du die Shell (die wird immer und als erstes gestartet) austauschen (default explorer.exe)

surfer007 20. Jan 2016 22:03

AW: Autostart RUN und RUNONCE
 
Die Registry Einträge werden kurz nach dem Start, und während des Betriebs und auch beim beenden nochmals geschrieben. Da das Programm als Kiosk läuft wird in der Praxis die Maschine aber knallhart via Sicherung raus beendet. Da die Einträge aber mehrmals an verschiedenen Stellen gemacht werden gehe ich davon aus das die Einträge gemacht wurden. Das Problem tritt scheinbar nur nach Power Off auf. Normaler Reboot klappt. Übrigens klappt das so schon seit Jahren auf Systemen < Win10. RUNONCE wird benutzt um der Erste beim Booten zu sein.

Bei dieser Anwendung wird der Desktop benötigt, deshalb Explorer als Shell. Das Programm ist auch bei anderen Installationen im Einsatz und selbst als Shell eingetragen, da dann ohne Windows Desktop.

RUNONCE wird als allererstes gestartet, so können Taskbar und andere Restriktionen sofort gemacht werden. Der RUN Eintrag ist eigentlich nur die Rückversicherung. Komisch das die Anwendung gar nicht gestartet wird, also auch nicht via RUN der eigentlich nur 1x angelegt werden muss.

Luckie 20. Jan 2016 22:13

AW: Autostart RUN und RUNONCE
 
Wie schon bemerkt wurde. RUNONCE bedeute: Führe das Programm einmal automatisch aus. Und nicht: Führe es als erstes aus. Wenn jetzt ein Update dort auch einen Eintrag macht, dann ist nicht mehr sichergestellt, dass dein Programm als erstes Startet. Lösung, wie schon gesagt wurde: Trag dein Programm als Shell ein und ersetze damit so den Explorer als Shell. Dann sparst du dir auch das Rumgefrickel mit den Autorun-Schlüsseln in der Registry.

surfer007 20. Jan 2016 22:28

AW: Autostart RUN und RUNONCE
 
Ok, wenn ein anderes Programm auch RUNONCE benutzt, sollte trotzdem die eigene Anwendung drin stehen und gestartet werden.

Der "Kiosk" braucht aber den Windows Desktop. Oder ich müsste selber einen Desktop integrieren, also die Möglichkeit Icons mit Link zu Programmen anzulegen die der User dann benutzen kann. Viel Arbeit um etwas zu ersetzen das immer funktionierte. Zum Verständnis, mein Kiosk blendet unter anderem die Taskleiste aus, und deaktiviert die rechte Maustaste, macht einige Key Mappings um CTRL+ALT+DEL , Windows Taste usw. umzubiegen. Der User soll keinen Zugriff auf HD und System haben, eben ein Kiosk.

Bleibt immer noch die Frage warum läuft es < Win10 und warum wird im "worst case" Fall der Standard RUN Eintrag nicht ausgeführt.

Ich weiß was RUNONCE bedeutet, in der Praxis ist RUNONCE aber vor RUN und Autostart Ordner dran, also ich kenne keine Möglichkeit (außer Shell replacement) ganz vorne beim Bootvorgang zu sein.

Vielleicht muss ich doch auf Task Scheduler umsteigen, muss ich mal testen ob man da "früh genug" an der Reihe ist.

Luckie 20. Jan 2016 22:41

AW: Autostart RUN und RUNONCE
 
Zitat:

Viel Arbeit um etwas zu ersetzen das immer funktionierte.
Offensichtlich ja nicht immer. :?

Dejan Vu 21. Jan 2016 06:51

AW: Autostart RUN und RUNONCE
 
Wenn ich die Shell durch meine SW ersetze, kann ich dann noch eine TShellView o.ä. verwenden? Und wenn es um Icons geht, die beim Anklicken ein Programm ausführen, ginge das nicht auch mit einem Button oder -noch einfacher- mit einem TImage.OnClick, oder -warte- mit einer TListView im Icon-Modus? "Viel Arbeit" wäre das ja nicht.

Luckie 21. Jan 2016 06:54

AW: Autostart RUN und RUNONCE
 
Zitat:

TListView im Icon-Modus
Der original Desktop ist übrigens nichts anderes. :wink:

Dejan Vu 21. Jan 2016 09:03

AW: Autostart RUN und RUNONCE
 
Ach was. :mrgreen: Darauf wollte ich dezent hinweisen. :stupid:


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:16 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz