将文件copy到剪贴板上我爱黑客基地,山西黑客,黑客联盟,信息安全,黑客联盟,木马编写,安全检测,软件破解,数据修复,机房维护,网站开发,黑客教程,黑客入门,动画教程,源码下载,书籍教程,黑客培训,刷QB,刷业务,QQ,IDC,域名主机

bool CopyToClipboard(AnsiString file);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
　　　　        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　        CopyToClipboard("C:\\scandisk.log");
}
bool CopyToClipboard(AnsiString file)
{
　　      int nLen;
　　      char* Data;
　　      HANDLE hMem;
　　      if (file.IsEmpty()) return false;
　　      nLen = 20 + file.Length() + 2;
　　      hMem = GlobalAlloc(GMEM_MOVEABLE
　　　　      |GMEM_DDESHARE|GMEM_ZEROINIT,
　　　　      nLen);
　　      if (hMem==NULL) return false;
　　      Data = (char*)GlobalLock(hMem);
　　      *(DWORD*)Data = 20;
　　      strcpy(Data+20, file.c_str());
　　      GlobalUnlock(hMem);
　　      if (OpenClipboard(NULL)) {
　　　　      EmptyClipboard(); 
　　　　      if (SetClipboardData(
　　　　　　      CF_HDROP,hMem)!=0)
　　　　　　      hMem = NULL;
　　　　      CloseClipboard();
　　      }
　　      if (hMem) GlobalFree(hMem);
　　      return hMem ? false : true;
}

查看更多与将文件copy到剪贴板上相关内容