|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.10.2010, 18:24 | #1 |
Форумчанин
Регистрация: 05.11.2007
Сообщений: 392
|
буфер обмена
не компилируется процедура
procedure CopyStringToClipboard(s: string); var hg: THandle; P: PChar; begin hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1); P:=GlobalLock(hg); StrPCopy(P, s); GlobalUnlock(hg); OpenClipboard(Application.Handle); SetClipboardData(CF_TEXT, hg); CloseClipboard; GlobalFree(hg); end; ругается на StrPCopy и Application.Handle не хочется подрубать много модулей так как важен размер. у кого какие предложения? StrPCopy поправил, гуд, а вот как быть с Application.Handle, подрубать Forms очень не хочется Последний раз редактировалось DeDoK; 25.10.2010 в 18:56. |
25.10.2010, 19:08 | #2 |
Форумчанин
Регистрация: 05.11.2007
Сообщений: 392
|
Все разобрался сам
вместо Код:
Код:
а strpcopy вот : Код:
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Буфер обмена | dmitriegorovih | Общие вопросы Delphi | 13 | 09.09.2010 12:54 |
буфер обмена | olimpus | Microsoft Office Excel | 2 | 19.09.2009 08:52 |
Буфер обмена | nusik | Общие вопросы Delphi | 2 | 21.05.2009 00:53 |
буфер обмена | __@cmd@__ | Общие вопросы Delphi | 2 | 04.02.2009 12:24 |