Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Добавление текста в буфер обмена без использования Clipbrd

Delphi FAQ >> Операционная система

Данная функция на Delphi копирует указанный текст в буфер обмена без использования модуля Clipbrd.

{
 Wnd - Handle окна, получающего доступ к буферу обмена,
 может быть Application.Handle или Form.Handle
 Value - текст, помещаемый в буфер обмена
}

function SetClipboardText(Wnd: HWND; Value: String): Boolean;
var
  hData: HGlobal;
  pData: Pointer;
  Len: Integer;
begin
  Result := True;
  if OpenClipboard(Wnd) then
  begin
    try
      Len := Length(Value) + 1;
      hData := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Len);
      try
        pData := GlobalLock(hData);
        try
          Move(PChar(Value)^, pData^, Len);
          EmptyClipboard;
          SetClipboardData(CF_Text, hData);
        finally
          GlobalUnlock(hData);
        end;
      except
        GlobalFree(hData);
      raise
      end;
    finally
      CloseClipboard;
    end;
  end else Result := False;
end;


Если вам нужна хорошая работа в Екатеринбурге, то посетите указанный сайт - вы сможете просмотреть текущие вакансии а также разместить свое резюме.