sportskruto.blogg.se

MsgBox "Could not unlock memory location. LpGlobalMemory = lstrcpy(lpGlobalMemory, MyString) LpGlobalMemory = GlobalLock(hGlobalMemory)

HGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1) Declare PtrSafe Function GlobalUnlock Lib "kernel32" (ByVal hMem As LongPtr) As Longĭeclare PtrSafe Function GlobalLock Lib "kernel32" (ByVal hMem As LongPtr) As Longĭeclare PtrSafe Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _ĭeclare PtrSafe Function CloseClipboard Lib "User32" () As Longĭeclare PtrSafe Function OpenClipboard Lib "User32" (ByVal hwnd As LongPtr) As Longĭeclare PtrSafe Function Empt圜lipboard Lib "User32" () As Longĭeclare PtrSafe Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _ĭeclare PtrSafe Function SetClipboardData Lib "User32" (ByVal wFormat _Īs Long, ByVal hMem As LongPtr) As LongPtrĭeclare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Longĭeclare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Longĭeclare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, _ĭeclare Function CloseClipboard Lib "User32" () As Longĭeclare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Longĭeclare Function Empt圜lipboard Lib "User32" () As Longĭeclare Function lstrcpy Lib "kernel32" (ByVal lpString1 As Any, _ĭeclare Function SetClipboardData Lib "User32" (ByVal wFormat _Ĭall ClipBoard_SetData(MyString:=StrNull)įunction ClipBoard_SetData(MyString As String)