Форум: "Начинающим";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
ВнизСтрока или текст через clipboard , незнаю как правильно. Найти похожие ветки
← →
Johnnnnn (2009-04-11 00:26) [0]Вообщем есть вот такое
uses clipbrd
var
clip:string;
begin
clip:=XLCExcel.activecell.value;
clipboard.astext:=clip;
навыходе из clipboard выдыет ìàñòåðà äåëôè а было - мастера делфи
как это починить?
Спасибо.
← →
Johnnnn (2009-04-11 00:37) [1]ага всем спасибо нашел
procedure BufferToClipboard(Buffer: String);
var WideBuffer: WideString;
BuffSize: Cardinal;
Data: THandle;
DataPtr: Pointer;
begin
if Buffer <> "" then begin
WideBuffer := Buffer;
BuffSize := length(Buffer) * SizeOf(WideChar);
Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE+GMEM_ZEROINIT, BuffSize + 2);
try
DataPtr := GlobalLock(Data);
try
Move(PWideChar(WideBuffer)^, Pointer(Cardinal(DataPtr))^, BuffSize);
finally
GlobalUnlock(Data);
end;
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
except
GlobalFree(Data);
raise;
end;
end;
end;
← →
Кролик Иа-Иа2 (2009-04-12 02:35) [2]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.05.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c