Cita:
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
