VPF::Поиск только ярлыков файлов. - Форум программистов

ruslandlion

Дата 21.1.2007, 14:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 12.8.2006

Репутация: нет
Всего: нет

Помогите пожалуста. Я решил написать свой собственный поисковик который ищет mp3 файлы. Ищет он нормально но как сделать так чтобы найденные файлы были ярлыками. Вот код.

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
SearchRec:TsearchRec;
begin

if
FindFirst('c:\*.mp3*',faReadOnly,SearchRec)=0
then
Memo1.Lines.Add(searchrec.Name);
end;



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9':;
#8:       ;
'a'..'z':  ;
'а'..'я':   ;
'A'..'Z':    ;
'А'..'Я':     ;
#13:button1.SetFocus;
 end;
end;

end.

Заранее спасибо.

Alexeis

Дата 21.1.2007, 14:36 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Вместо 'c:\*.mp3*' поставить 'c:\*.lnk*'

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ruslandlion

Дата 24.1.2007, 20:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 115
Регистрация: 12.8.2006

Репутация: нет
Всего: нет

Я наверное неправильно выразился. Я хочу чтобы он когда находил эти файлы то сразу создавал для них ярлыки(как в стандартном поиске Windows).

_hunter

Дата 24.1.2007, 20:59 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

так виндовый искатель не создает ярлыки...
или ты хочеш чтобы по клику на найденный файл он открывался? -- тогда найденные файлы нужно не в memo а в listcontrol писать. добавить обработчик нажатия и в нем вызывать ShellExecute() с выбранным файлом

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »