Copiar contenido de Edit->Text al portapapeles de windows

[JuanErasmo]

Buenas tardes amigos.

Como copio el contenido de un Edit, (Edit->text) al portapapeles de windows con codigo?

Muchas Gracias

[[cHackAll]]

Código Delphi [-]
 Edit1.SelectAll;
 Edit1.CopyToClipboard;

[jachguate]

Otro método:

Código Delphi [-]
uses clipbrd;
...
begin
  Clipboard.AsText := Edit1.Text;
end;

Hasta luego.

[[cHackAll]]

Otro :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var hMem: Cardinal; lpStr: PChar;
begin
 OpenClipboard(Handle);
 hMem := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Length(Edit1.Text) + 1);
 lpStr := GlobalLock(hMem);
 lstrcpy(lpStr, PChar(Edit1.Text));
 SetClipboardData(CF_TEXT, hMem);
 GlobalUnlock(hMem);
 GlobalFree(hMem);
 CloseClipboard;
end;

Saludos

[JuanErasmo]

muchas gracias a todos,,,,
de mucha ayuda!