опять дурацкий вопрос... |
Cообщение скрыто для удобства комментирования.
Прочитать сообщение
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |
Исходное сообщение Dim_K
Это глюк операционки
function GetStringFromClipboard: WideString;
var
Data: THandle;
begin
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Result := Clipboard.AsText
else
begin
Clipboard.Open;
Data := GetClipboardData(CF_UNICODETEXT);
try
if Data <> 0 then
Result := PWideChar(GlobalLock(Data))
else
Result := '';
finally
if Data <> 0 then
GlobalUnlock(Data);
Clipboard.Close;
end;
end;
end;
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |