Re: Desktop handle

From	Klaus Ketelaer <usenet@ketelaer.de>
Newsgroups	de.comp.lang.vbclassic
Subject	Re: Desktop handle
Date	2024-04-16 01:13 +0200
Message-ID	<uvkcai$7pg$1@solani.org> (permalink)
References	(3 earlier) <uvb5tb$g4c9$1@solani.org> <uvbr65$2fr7t$1@dont-email.me> <uvbvb9$gkl3$1@solani.org> <uvdgjm$2trma$1@dont-email.me> <foc6sfem9cwh.dlg@weu.my-fqdn.de>

Show all headers | View raw

Am 15.04.2024 um 23:41 schrieb Wolfgang Εnzinger:
> Am Sat, 13 Apr 2024 10:43:20 +0200 schrieb Wendelin Uez:
> 
>>> Was sagt den GetLastError?
>>
>> null
> 
> Der Rückgabewert von GetLastError() ist ohne Aussagekraft, wenn die zuvor
> aufgerufene WinAPI-Funktion dem Compiler per Declare bekanntgemacht wurde

Dem kann ich so nicht zustimmen.

Meine Api-Funktionen sind IMMER deklariert, und ich arbeite in vielen 
sensiblen Bereichen mit GetLastError().

Hier eine solche Funktion. Da liefert GetLastError immer den Fehler.

Function LoadPrivilege(ByVal Privilege As String) As Boolean
'The access
Dim hToken As Long
Dim SEDebugNameValue As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim hProcessHandle As Long
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lbuffer As Long

hProcessHandle = GetCurrentProcess()
If GetLastError <> 0 Then
     MsgBox "GetCurrentProcess, Error: " & GetLastError()
     Exit Function
End If

OpenProcessToken hProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or 
TOKEN_QUERY), hToken
If GetLastError <> 0 Then
     MsgBox "OpenProcessToken, Error: " & GetLastError()
     Exit Function
End If

LookupPrivilegeValue "", Privilege, SEDebugNameValue
If GetLastError <> 0 Then
     MsgBox "LookupPrivilegeValue, Error: " & GetLastError()
     Exit Function
End If

With tkp
     .PrivilegeCount = 1
     .TheLuid = SEDebugNameValue
     .Attributes = SE_PRIVILEGE_ENABLED
End With

AdjustTokenPrivileges hToken, False, tkp, Len(tkp), tkpNewButIgnored, 
lbuffer
If GetLastError <> 0 Then
     MsgBox "AdjustTokenPrivileges, Error: " & GetLastError()
     Exit Function
End If

LoadPrivilege = True

End Function

Gruß Klaus

Thread

Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-11 20:16 +0200
  Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-12 11:54 +0200
    Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-12 13:28 +0200
      Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-12 19:31 +0200
        Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-12 20:42 +0200
          Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-12 20:49 +0200
          Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-13 10:43 +0200
            Re: Desktop handle Wolfgang  Εnzinger <we_usenet@nurfuerspam.de> - 2024-04-15 23:41 +0200
              Re: Desktop handle Klaus Ketelaer <usenet@ketelaer.de> - 2024-04-16 01:13 +0200
                Re: Desktop handle Ulrich Möller <knobbi38@arcor.de> - 2024-04-16 02:54 +0200
                Re: Desktop handle "Wendelin Uez" <wuez@online.de> - 2024-04-17 16:16 +0200

csiph-web