RtfToTxt (Truco 484)

[[cHackAll]]

Empezado por rauros

...(no quiero que penséis que pido código por la cara)...

Pero qué te ha echo pensar tal cosa... ???
a propósito, aqui esta tu "truco":

Código Delphi [-]
procedure RtfToTxt(Strings: TStrings);
var x: TRichEdit;
begin
 with TRichEdit.Create(nil) do
  begin
   Visible := False;
   Parent := Application.MainForm;
   Text := Strings.Text;
   PlainText := True;
   Strings.Assign(Lines);
   Destroy;
  end;
end;

Modo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox1.Items.LoadFromFile('c:\leecher.rtf');
 RtfToTxt(ListBox1.Items);
end;

La busqueda no es un adorno, esta allí para que no tengamos que estar haciendo el "trabajo" de otros una y otra vez; para éste hilo busca la palabra KeyLogger o SetWindowsHookEx, para éste la palabra LB_DIR o FindFirst.

Adios