PureBoard

Eine Integervariable mit 32-Bit Compiler hat nur 4 Byte! Ein Quad sind immer 8 Byte.

aber da es keine Funktionen, mit denen man eigene Events/EventTypes... sicher registrieren kann (beim nächsten Aufruf vom nächsten Modul entsprehend erhöht),
Genau das macht mein Code, einfach mal angucken und probieren :D

CompilerIf Defined(CommonConstants, #PB_Module) = 0
DeclareModule ...

Hier meine Lösung: An den Anfang des Codes:
CompilerIf Defined(CommonConstants, #PB_Module) = 0
DeclareModule CommonConstants
; Form
Enumeration FormWindow
EndEnumeration
Enumeration FormGadget
EndEnumeration
Enumeration FormMenu
EndEnumeration
Enumeration FormImage
EndEnumeration ...

Dann sind mit Sicherheit einige Rechte der Verzeichnisse falsch gesetzt. Eine normale Installation wird als User gestartet und enthält keinerlei parameter (vor allem /portable oder ähnlich). Die Installation landet unter C:\program files und die Einstellungen erfolgen im verstecktem Ordner "AppData ...

Meine Procedure einfach so benutzen, egal ob Eintrag bereits existiert. Die Procedure gibt einen Leerstring bei Fehler zurück. Mehr ist nicht zu prüfen!

Hier mal meine Version:
Procedure.s GetPrefsFile(AppName.s, FileName.s = "AppForFocus.ini", Publisher.s = "Zerosoft")
Protected Path.s, slash.s

CompilerSelect #PB_Compiler_OS
CompilerCase #PB_OS_Windows
slash = "\"
Path = GetEnvironmentVariable("APPDATA") + "\"
CompilerDefault
slash ...

Ich denke mal, SaveImage(...) usw. sind wohl die Befehle, die gesucht werden.
https://www.purebasic.com/german/docume ... image.html

Hier mal ein Einstieg:

Als erstes benötige ich das Recht zum Runterfahren: SeShutdownPrivilege, hier als kompakte Procedure:
Procedure EnableShutDown()
Protected *Privileges.TOKEN_PRIVILEGES = AllocateMemory(8 + (1 * SizeOf(LUID_AND_ATTRIBUTES)))
Protected htoken.i
OpenProcessToken ...

Beta 2, siehe erster Thread