Zitat:


Möchten Sie das Programm immer als Admin starten, klicken Sie mit der rechten Maustaste
auf die Programm-Verknüpfung und wählen "Eigenschaften" aus. Im Reiter "Kompatibilität"
aktivieren Sie die Option "Programm als Administrator ausführen" und speichern die
Änderungen abschließend mit "Ok".


runas /profile /user:Admin
Runas /user:Computername\Benutzer Anwendung

 cls
 
 Declare mem#, String Strings[]
 Declare info&
 Declare groesse&
 
 DEF %RT_MANIFEST 24
 
 info& = res("info", %hInstance, %RT_MANIFEST, "#1", 0)
 groesse& = res("size", %hInstance, info&)
 
 groesse& = Res("Size",%HInstance, info&, "RT_MANIFEST", 0)
 
 Dim mem#,groesse&
 
 mem# = Res("Get", %HInstance, info&)
 
 Print %HInstance
 
 print "info:",info&
 
 print "groesse&:",groesse&
 
 Print 
 Print "MANIFEST ---------------------------"
 Print
 Print String$(mem#, 0)
 Print
 Move("MemToList", mem#, Chr$(13) +  Chr$(10))
 Move("ListToArr", Strings[])
 Waitkey
 Print "Und jetzt aus dem Array...."
 Print
 
 WhileLoop 0, SizeOf(Strings[]) - 1
   Print Strings[&LOOP]
 EndWhile
 
 
 waitkey
 Dispose mem#