| Код |
if Clipboard.HasFormat(CF_TEXT) then begin
ShowMessage(Clipboard.AsText);
end;
if Clipboard.HasFormat(CF_DDGData) then begin
Data := Clipboard.GetAsHandle(CF_DDGData);
if Data = 0 then begin
Exit;
end;
ShowMessage(PChar(Data));
end;
|
---
если такой код написать в простом приложении на Дельфе все отлично работает, стоит тока в плагине (СОМ DLL) то уже не пашет, выдает ахинею. вместо большой строки с читабельным текстом выдает несколько символов не имеющих никакого смысла.
Delphi7, насколько помню без апдейтов, Win XP Eng.
в чем проблема? |