[popopo]

Мне необходимо выводить список файлов в лист бокс и открывать их в Memo
Было по разному перепробовано
Какой есть максимально простой и легкий вариант?

[U.B.M.]

Сообщение от popopo

Мне необходимо выводить список файлов в лист бокс и открывать их в Memo
Было по разному перепробовано
Какой есть максимально простой и легкий вариант?

Для списка файлов использовать FileListBox. Сделать его невидимым, перегнать из него инфу в ListBox. Минимум кода.

[popopo]

а как сделать чтобы файлы открывались в Мемо?

[angvelem]

Файлы или их список?

[NumLock]

Сообщение от popopo

Какой есть максимально простой и легкий вариант?

Код:

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMessage(ListBox1.Handle, LB_DIR, 0, Integer(PChar('c:\WINDOWS\system32\*.dll')));
end;

[popopo]

Спасибо! Работает!
А как сделать так, чтобы выбранные файлы открывались в мемо:? Использовать обработчик событий даблклик?

[popopo]

Для открытия файла я использую

ShellExecute(Application.Handle,'Open',PChar(ListB ox1.Items[ListBox1.ItemIndex]),Nil,Nil,SW_SHOWDEFAULT);

но у меня ничего не открывается

[angvelem]

Вместо Application.Handle поставь 0.

[NumLock]

Код:

uses
  ShellAPI,

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);

const
  PATH = 'c:\Program Files\Borland\Delphi7\';

procedure TForm1.FormCreate(Sender: TObject);
begin
  SendMessage(ListBox1.Handle, LB_DIR, 0, Integer(PChar(PATH+'*.txt')));
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(PATH+ListBox1.Items[ListBox1.ItemIndex]);
  ShellExecute(0, 'open', PChar(PATH+ListBox1.Items[ListBox1.ItemIndex]), nil, nil, SW_SHOW);
end;

http://data.cod.ru/133824