title image


Smiley ohne gefährliche Verweise
Option Explicit



Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long

Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long

Private Declare Function GlobalUnlock Lib "kernel32.dll" (ByVal hMem As Long) As Long

Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" (lpString1 As Any, _

                lpString2 As Any) As Long

Private Declare Function GlobalLock Lib "kernel32.dll" (ByVal hMem As Long) As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long







Sub test()

Dim tmp$, ptr_hnd&, ptr_mem&, res&



  tmp = "Knofis Computer ist heute gecrasht :o("



  ptr_hnd = GlobalAlloc(66, Len(tmp) + 1): ptr_mem = GlobalLock(ptr_hnd)

  res = lstrcpy(ByVal ptr_mem, ByVal tmp):   res = GlobalUnlock(ptr_hnd)

  

  OpenClipboard 0: EmptyClipboard:  SetClipboardData 1, ptr_hnd:   CloseClipboard





End Sub

Code eingefügt mit Syntaxhighlighter 1.14

Knofi So wie wir heute arbeiten, werden morgen die Beamten leben ...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: