Re: Tool zum PC herunterfahren
Verfasst: 23.07.2010 14:27
ok... schon wieder schlauer geworden.oh... well?! hat geschrieben:Dafür gibt es "EnableExplicit"
ok... schon wieder schlauer geworden.oh... well?! hat geschrieben:Dafür gibt es "EnableExplicit"
Wenn es bei Wikipedia heißt, häufig vorhandene Merkmale von Scriptsprachen seien A oder B, dann bedeutet dass nicht im Umkehrschluss, dass eine Sprache mit Merkmal A oder B dadurch automatisch eine Scriptsprache ist. Und wie ich schon schrieb, ist PureBasic ausschließlich eine compilierte Sprache und damit keine Scriptsprache.oh... well?! hat geschrieben:hm... nach wikipedia kling für mich purebasic aber wie eine script sprache
bsp:
-in PB gibt es prototyping
-in PB wird auf den Deklarationszwang verzichtet,
Bisonte war es, deroh... well?! hat geschrieben:ok... schon wieder schlauer geworden.oh... well?! hat geschrieben:Dafür gibt es "EnableExplicit"
geschrieben hatte. Wenn Du noch lernst korrekt zu zitieren, dann klappt's auch mit dem Nachbarn.Dafür gibt es "EnableExplicit"
oh... well?! hat geschrieben:... Is nur so, dass ich erst seit kurtzem Internet habe und eigentlich noch kein Plan davon hat was man in einem Forum tut und was man nicht tut, ...
In diesem Sinne ... "kaaaaaaaaain straaaaaaaait !" , wie Werner jetz sachtNino hat geschrieben:Wenn Du noch lernst korrekt zu zitieren, dann klappt's auch mit dem Nachbarn.
Code: Alles auswählen
Procedure EnableShutDown()
Protected Privileges.TOKEN_PRIVILEGES
Protected hToken.i
OpenProcessToken_(GetCurrentProcess_(), #TOKEN_ADJUST_PRIVILEGES | #TOKEN_QUERY, @hToken)
Privileges\PrivilegeCount = 1
Privileges\Privileges[0]\Attributes = #SE_PRIVILEGE_ENABLED
LookupPrivilegeValue_(0, "SeShutdownPrivilege", @Privileges\Privileges[0]\Luid)
AdjustTokenPrivileges_(hToken, 0, @Privileges, 0, 0, 0)
CloseHandle_(hToken)
EndProcedure