Копирование структуры в буфер обмена

[Квэнди]

Именно средствамти WinAPI и регистрируется свой формат буфера
UINT RegisterClipboardFormat( LPCTSTR lpszFormat
);

[OrdJONY]

Можно использовать TMemoryStream или сделать что-то подобное:

PMyRecord = ^TMyRecord;
TMyRecord = Record
  Param1 : Byte;
  Param2 : Word;
  Param3 : String;
...
Var
  A: Pointer;
  B: TMyRecord;
Begin
  GetMem(A,SizeOf(TMyRecord или B));
  CopyMemory(A,@B,SizeOf(TMyRecord или B));

Для манипулирования A делай что-то похожее

PMyRecord(A)^.Param1 := 1;

Пробуй

[bill]

OrdJONY, спасибо за способ. Но он будет действовать только в самой программе, а я должен выполнить операцию копирования структуры в dll. Но у меня появилась новая идея как все осуществить.
В общем я решил сделать модуль для общего случая- копировать буду указатель,который будет указывать на ту структуру, которая мне нужна(его собственно и буду копировать в буфер). Универсальный способ. Но я столкнулся с проблемой-
когда мне в программе возвращается указатель на ту структуру из dll(из буфера естественно), информация в label-х отображается ненормально- например надо чтобы отобразилось - Иван, а отображается подобные вещи- fkj8f. Что у меня неправильно? Привожу модуль(вложение) и часть программы(вставка из буфера).

procedure TForm1.LMDShapeButton1Click(Sender: TObject);
var l:pointer; info:tinfo;
myclipboard:tykaztelclipboard;
begin
myclipboard:=tykaztelclipboard.Create;
myclipboard.PasteFromClipboard;
l:=myclipboard.p;
info:=tinfo(l^);
label5.Caption:=info.number;
end;

[bill]

Я описал свой собственный формат для работы с буфером обмена. Процедура копирования структуры в буфер находится в dll. Почему при вставке структуры(в программе) информация структуры отображается ненормально(совсем не то что надо) или не отображается вообще?Например, процедура в dll должна скопировать "Иван" в буфер и вставить в программу "Иван", а вставляет "Lfw51". Почему?

unit ClipboardFormatUnit;
interface
uses
 Clipbrd, Windows, SysUtils;
type
  PLineData=^TLineData;
  TLineData=record
   Name:String[100];
   Number:String[100];
  end;

  TLineClipboard=class
  public
   LineData:TLineData;
   procedure CopyToClipboard;
   procedure PasteFromClipboard;
  end;

var
 CF_PERSONDATA:word;

implementation
procedure TLineClipboard.CopyToClipboard;
var
 Data:THandle;
 DataPtr:Pointer;
begin
 Data:=GlobalAlloc(GMEM_MOVEABLE, SizeOf(LineData));
 try
  DataPtr:=GlobalLock(Data);
  Move(LineData, DataPtr^, SizeOf(TLineData));
  Clipboard.Open;
  Clipboard.SetAsHandle(CF_PERSONDATA, Data);
  Clipboard.Close;
  GlobalUnlock(Data);
 except
  GlobalFree(Data);
 end;
end;

procedure TLineClipboard.PasteFromClipboard;
var
 Data:THandle;
 DataPtr:Pointer;
begin
 Data:=ClipBoard.GetAsHandle(CF_PERSONDATA);
 if Data=0 then exit;
 DataPtr:=GlobalLock(Data);
 Move(DataPtr^, LineData, SizeOf(TLineData));
 GlobalUnlock(Data);
end;
initialization
 CF_PERSONDATA:=RegisterClipboardFormat('CF_PDATA');
end.

копирование в dll

.. var myclipboard:TLineClipboard;
begin
myclipboard:=TLineClipboard.Create;
myclipboard.LineData.Name:=info.name;
myclipboard.LineData.Number:=info.number;
myclipboard.CopyToClipboard;
myclipboard.Free; ...
end;

Вставка(основная прога):

... var myclipboard:TLineClipboard;
begin
myclipboard:=TLineClipboard.Create;
myclipboard.PasteFromClipboard;
myclipboard.LineData.name:=info.name;
myclipboard.LineData.number:=info.number;
myclipboard.free;  ...
end;

[bill]

Так-с, ответ был получен- структура(и вообще любая информация) копируются в буфер обмена, но потом при закрытии dll буфер очищается-уничтожается информация, которая в нем хранилась.
Кто-нибудь знает как можно запретить ему самоочищаться, программно конечно?