setPortapapeles(char *str)    {
    if (OpenClipboard(NULL))
    {
        HGLOBAL hClipboardData;
        char * pchData;
 
        EmptyClipboard();
        hClipboardData = GlobalAlloc(GMEM_DDESHARE, strlen(str)+1);
        pchData = (char*)GlobalLock(hClipboardData);
        strcpy(pchData, str);
        GlobalUnlock(hClipboardData);
        SetClipboardData( CF_TEXT,hClipboardData); //CF_TEXT  CF_HDROP
        CloseClipboard();
    }
}