Using function from windows dll in abap program

Question

Hi
How can i use a function from a standard  DLL that in c:\winnt\system32.?.
Ami

Answer 1

Hello ami,
here is the solution to your question - I know, a little bit late, but I hope not to late.
Cheers
Stefan
"-Begin-----------------------------------------------------------------
  Report  ZLOGON.
  "-Variables-----------------------------------------------------------
    Data Win32 Type OLE2_OBJECT.
    Data Token Type String Value '0000'.
    Data hToken Type Integer.
    Data phToken Type Integer.
    Data ret Type Integer.
  "-Main----------------------------------------------------------------
    Create Object Win32 'DynamicWrapperX'.
    If Win32-Handle > 0.
      "-Define external functions---------------------------------------
        Call Method Of Win32 'Register' Exporting
          #1 = 'advapi32.dll' #2 = 'LogonUserA'
          #3 = 'i=sssuup' #4 = 'r=l'.
        Call Method Of Win32 'Register' Exporting
          #1 = 'kernel32.dll' #2 = 'CloseHandle'
          #3 = 'i=h' #4 = 'r=l'.
        Call Method Of Win32 'Register' Exporting
          #1 = 'kernel32.dll' #2 = 'GetLastError'
          #3 = 'r=u'.
      Call Method Of Win32 'StrPtr' = phToken Exporting
        #1 = Token #2 = 's'.
      Call Method Of Win32 'LogonUserA' = ret Exporting
        #1 = 'bambi' #2 = '.' #3 = 'hugo' #4 = 2 #5 = 0 #6 = phToken.
      If ret <> 0.
        "-Logon successful----------------------------------------------
          Write: 'Logon as bambi user'.
        Call Method Of Win32 'NumGet' = hToken Exporting
          #1 = phToken.
        Call Method Of Win32 'CloseHandle' = ret Exporting
          #1 = hToken.
        If ret = 0.
          Call Method Of Win32 'GetLastError' = ret.
          Write: / ret.
        EndIf.
      Else.
        Call Method Of Win32 'GetLastError' = ret.
        Write: / ret.
      EndIf.
      Free Object Win32.
    EndIf.
"-End-------------------------------------------------------------------
Edited by: Stefan Schnell on Sep 6, 2011 7:07 AM