ASM Community

I might be dense, but I can't get this working. Anyone know how to copy TextToCopy to the ClipBoard?

hClipData DWORD ?
TextToCopy DB "this is the text...",0
...
Invoke OpenClipboard,hWnd
Invoke EmptyClipboard
Invoke GlobalAlloc,GMEM_MOVEABLE + GMEM_ZEROINIT,38
Mov hClipData,eax
Invoke GlobalLock,hClipData
Mov eax,OFFSET TextToCopy
Invoke SetClipboardData,CF_TEXT,hClipData
Invoke GlobalUnlock,hClipData
Invoke CloseClipboard

JimmyClif is wright. Also I believe memory must not be locked.Try something like this:

    invoke lstrlen, addr szText
    invoke GlobalAlloc, GMEM_MOVEABLE or GMEM_ZEROINIT or GMEM_SHARE, eax
    mov hClipData, eax    ; not forget checking errors
    invoke lstrcpy, hClipData, addr szText
    invoke OpenClipboard, hwnd
    .if( !eax )
        ; error opening clipboard so we must free memory
        invoke GlobalFree, hClipData
        jmp skip_job
    .endif
    invoke EmptyClipboard
    invoke SetClipboardData, CF_TEXT, hClipData
    invoke CloseClipboard
skip_job:
   ....

I didn't test it, but I think it will work. Hope it helps.

Regards.

Kecol.-

Hey drizz, I wrote the code in 'Post reply' text area (on the flight). You are wright with your correction, it is just I pressed 'Spell Check' button and the process threw no compiling errors, so I decided to post the code (do not trust in 'Spell Check' anymore). I'm just kidding :). Of course I know this code will compile with no errors (I must stop smoking).

There you go:

		Invoke OpenClipboard,hWnd
		Invoke EmptyClipboard
		Invoke GlobalAlloc,GMEM_MOVEABLE + GMEM_ZEROINIT,38
		Mov hClipData,eax
		Invoke GlobalLock,hClipData
		invoke lstrcpy,eax,offset TextToCopy
		Invoke SetClipboardData,CF_TEXT,hClipData
		Invoke GlobalUnlock,hClipData
		Invoke CloseClipboard

Tried & worked.