Помогите пожалуста. Я решил написать свой собственный поисковик который ищет 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.
|
Заранее спасибо. |