🚀 go-pugleaf

Check the source code you posted.

It is hard to decipher with all indenting removed but it looks as if the 
'try' statement is terminated with

  else if(hGbl != NULL)

.  Ed

> Alexander Adam wrote in message
> news:42f6a8ab@newsgroups.borland.com...
>
> 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?
>
> 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);
> char* FileList = new char[tmpList.Length() + 1];
> try {
> strcpy(FileList, tmpList.c_str());
>
> 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), FileList, len);
> GlobalUnlock(hGbl);
> if (!SetClipboardData(CF_HDROP,hGbl)) {
> GlobalFree(hGbl);
> hGbl = NULL;
> }
> } else if(hGbl != NULL) {
> GlobalFree(hGbl);
> hGbl = NULL;
> }
> CloseClipboard();
> return hGbl != NULL;
> } __finally {
> delete FileList;
> }
> }