No replies to this topic

[sir.dev.a.lot]

Necesitaran adicionar esta Unidad.

delphi

uses ClipBrd;

delphi

procedure StrToClipbrd(StrValue: string);
	var
	  S: string;
	  hMem: THandle;
	  pMem: PChar;
	begin
	  hMem := GlobalAlloc(GHND or GMEM_SHARE, Length(StrValue) + 1);
	  if hMem <> 0 then
	  begin
	    pMem := GlobalLock(hMem);
	    if pMem <> nil then
	    begin
	      StrPCopy(pMem, StrValue);
	      GlobalUnlock(hMem);
	      if OpenClipboard(0) then
	      begin
	        EmptyClipboard;
	        SetClipboardData(CF_TEXT, hMem);
	        CloseClipboard;
	      end
	      else
	        GlobalFree(hMem);
	    end
	    else
	      GlobalFree(hMem);
	  end;
	end;
 
	function GetStrFromClipbrd: string;
	begin
	  if Clipboard.HasFormat(CF_TEXT) then
	    Result := Clipboard.AsText
	  else
	  begin
	    ShowMessage('No hay nada en el Portapapeles!');
	    Result := '';
	  end;
	end;

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  StrToClipbrd('Hola DelphiAccess');
	  ShowMessage(GetStrFromClipbrd);
	end;

Saludos!