🚀 go-pugleaf

"Alexander Adam" <sdg@dg.dg> wrote in message 
news:42f6a8ab@newsgroups.borland.com...
> hi!
>
> I am trying to copy a list of files into the clipboard. In the following 
> is my code but it doesn't work (acess error with memory or something that 
> the CodeGuard tells me).. any clue or maybe some more simple code to do 
> what I want?

I don't know anything about copying files to the clipboard, but I did 
revise your code to be simpler, and I think that it might work.

// Untested.

AnsiString ShellConcatFiles( TStrings *sourceFiles )
{
        AnsiString tmpStr;
        for( int i = 0; i < sourceFiles->Count; ++i )
        {
                tmpStr += sourceFiles->Strings[i];
                tmpStr += '\0';
        }

        return tmpStr;
}

bool CopyFilesToClipboard( TStrings *sourceFiles )
{
        AnsiString tmpList = ShellConcatFiles( sourceFiles );
        int len;
        BYTE* pData;
        HGLOBAL hGbl;
        DROPFILES hf;

        if( !OpenClipboard( 0 ) )
                return false;

        EmptyClipboard();

        hf.fNC = false;
        hf.fWide = false;
        hf.pFiles = sizeof( hf );
        hf.pt.x = hf.pt.y = 0;

        len = tmpList.Length() + 2;
        hGbl = GlobalAlloc(GHND, sizeof(hf) + len );
        pData = (BYTE*)GlobalLock( hGbl );
        if( pData != NULL )
        {
                memcpy(pData, &hf, sizeof( hf ));
                memcpy(pData + sizeof( hf ), tmpList.c_str(), len );
                GlobalUnlock( hGbl );

                if( !SetClipboardData( CF_HDROP, hGbl ) )
                {
                        GlobalFree(hGbl);
                        hGbl = NULL;
                }
        }
        else if( hGbl != NULL )
        {
                GlobalFree(hGbl);
                hGbl = NULL;
        }

        CloseClipboard();
        return ( hGbl != NULL );
}

HTH

Jonathan