Не открывает из списка файлов ListBox

[SANTA_KLAUD]

Вот код программы :
Ввожу искомое значение, жму поиск, находятся нужные файлы,они отображаютя в ListBox, пытаюсь двойным щелчком по файлу его открыть чтобы он открылся в своей программе но ничего не происходит ни какой реакции прога вроде робит мож кто чё знает помогите !

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, FileCtrl,ShellApi, XPMan;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
 

    
  private
    { Private declarations }
  public

    { Public declarations }

 procedure FindFile(Dir:String);


  end;

var
  Form1: TForm1;


implementation

{$R *.dfm}

 


procedure TForm1.Button1Click(Sender: TObject);
 begin
ListBox1.Clear; // очистка списка файлов
 FindFile(Edit1.Text); // поиск файлов с начальными условиями, заданных в Edit1
 end;
 procedure TForm1.FindFile(Dir: string);
 var
 SR: TSearchRec;
 FindRes: Integer;
 begin
 FindRes := FindFirst(Dir + '*.*', faAnyFile, SR);
 while FindRes = 0 do 
 begin 
  if ((SR.Attr and faDirectory) = faDirectory) and
  ((SR.Name = '.') or (SR.Name = '..')) then 
  begin 
  FindRes := FindNext(SR); 
  Continue; 
  end;
 
  // если найден каталог, то 
  if ((SR.Attr and faDirectory) = faDirectory) then 
  begin 
  // входим в процедуру поиска с параметрами текущего каталога +
  // каталог, что мы нашли
  FindFile(Dir + SR.Name + '\\'); 
  FindRes := FindNext(SR); 
  // после осмотра вложенного каталога мы продолжаем поиск 
  // в этом каталоге
  Continue; // продолжить цикл
  end; 
 
ListBox1.Items.Add(SR.Name);
  FindRes := FindNext(SR);
 end;
 FindClose(SR);
 end;
procedure FindFile(Dir: string);
var
 SR: TSearchRec;
 FindRes: Integer;
 begin 
 FindRes := FindFirst(Dir + '*.*', faAnyFile, SR); 
 while FindRes = 0 do
 begin 
  if ((SR.Attr and faDirectory) = faDirectory) and 
  ((SR.Name = '.') or (SR.Name = '..')) then 
  begin
  FindRes := FindNext(SR); 
  Continue; 
  end; 

  // если найден каталог, то
  if ((SR.Attr and faDirectory) = faDirectory) then 
  begin
  // входим в процедуру поиска с параметрами текущего каталога +
  // каталог, что мы нашли
  FindFile(Dir + SR.Name + '\\');
  FindRes := FindNext(SR);
  // после осмотра вложенного каталога мы продолжаем поиск
  // в этом каталоге
  Continue; // продолжить цикл
  end;
 Form1.ListBox1.Items.Add(SR.Name);
 FindRes := FindNext(SR);
 end;
 FindClose(SR);
 end;

procedure TForm1.ListBox1Click(Sender: TObject);
Var
s:String;
begin
s:=Form1.ListBox1.Items.Strings[ListBox1.ItemIndex];
ShellExecute( 0,'open',PChar(S), nil, nil, SW_SHOW);
end;

end.

[Карась]

1. Посмотреть вкладку евентс у формы. Проверить стоит ли там событие.
2. Поставить на все строки (их там мало) брекпоинты и посмотреть какие значения получают переменые.

[SANTA_KLAUD]

Сообщение от Карась

1. Посмотреть вкладку евентс у формы. Проверить стоит ли там событие.
2. Поставить на все строки (их там мало) брекпоинты и посмотреть какие значения получают переменые.

событие стоит а можно про 2 по подробнее что сделать

[Stilet]

событие стоит а можно про 2 по подробнее что сделать

Стань на строку ShellExecute( 0,'open',PChar(S), nil, nil, SW_SHOW);
Нажми F5. Запусти. Когда на ней остановишся наведи курсор на S и посмотри что он покажет.

[SANTA_KLAUD]

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

Стань на строку ShellExecute( 0,'open',PChar(S), nil, nil, SW_SHOW);
Нажми F5. Запусти. Когда на ней остановишся наведи курсор на S и посмотри что он покажет.

ээ на S это на которую
Запускал exe программы ищет нормально но из списка найденого запускается тока exe файл самой программы

[Dimoney]

Вот на эту.

s:=Form1.ListBox1.Items.Strings[ListBox1.ItemIndex];

[SANTA_KLAUD]

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

Вот на эту.

s:=Form1.ListBox1.Items.Strings[ListBox1.ItemIndex];

вот такая хрень показывается Var s:String-Unit1.pas (111)

[knight]

исправь

procedure TForm1.ListBox1Click(Sender: TObject);
begin

      ShellExecute(
      0,
      'open',
      PChar( ListBox1.Items.Strings[ListBox1.ItemIndex]),
      nil,
      PChar( Edit1.Text ),
      SW_SHOWNA);

end;

end.

[SANTA_KLAUD]

Пасиба большое Кнайт всё робит помог очень
Тему можно офф