File "resource.inc"

Path: /VLC Rotate extension/resource.inc
File size: 443 bytes
MIME-type:
Charset: utf-8

Download  
Open Back 

' <Resource.inc>
' res$ = RCDATA$(rid$) ' Get raw data as a string from a resource identifier

FUNCTION RCDATA$(BYVAL rid AS STRING)
    LOCAL L1, L2 AS LONG
    LOCAL D1, D2 AS DWORD

    L1 = FindResource  (GetModuleHandle(""), (rid), BYVAL %RT_RCDATA) ' "#"+FORMAT$(rid)
    D2 = SizeofResource(GetModuleHandle(""), L1)
    L2 = LoadResource  (GetModuleHandle(""), L1)
    D1 = LockResource  (L2)

    FUNCTION = PEEK$(D1,D2)
END FUNCTION