No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Salvar el Texto del Portapapeles a un Archivo.

 

Para que funcione hay que adicionar esta unidad.

delphi

uses Clipbrd;

delphi

function ClipboardTxtToFile
	        (sFileTXT : string) : boolean;
	var
	  ps1, ps2  : PChar;
	  dwLen     : DWord;
	  tf        : TextFile;
	  hData     : THandle;
	begin
	 Result := False;
	 with Clipboard do begin
	  try
	   Open;
	    if(HasFormat(CF_TEXT)) then begin
	     hData := GetClipboardData(CF_TEXT);
	     ps1 := GlobalLock(hData);
	     dwLen := GlobalSize(hData);
	     ps2 := StrAlloc(1 + dwLen);
	     StrLCopy( ps2, ps1, dwLen );
	     GlobalUnlock( hData );
 
	     AssignFile(tf, sFileTXT);
	     ReWrite(tf);
	     Write(tf, ps2);
	     CloseFile(tf);
 
	     StrDispose( ps2 );
	     Result := True;
	    end;
	   finally
	    Close;
	  end;
	 end;
	end;

Saludos!