Запуск не .exe и вопрос по папкам Опции

[suriv]

я короче почти хочу прогу сделать:
1)типа в данной директории показываются все файлы.
так вот когда я хочу чтоб запустился не .exe а ini,txt,etc.... то как сделать чтоб эти фалы открывались блокнтом
ну типа sorry за глупый вопрос?
я имею ввиду что-то вроде exec(noterepad,'***.txt');
можно сделать что-то вроде етого ?
2)выводится список всего что есть в папке как определить это папка или нет ?

[suriv]

вот короче пока еще не доделал что хотел.... но уже запутался... :p2:
Вылетает.... поправтье если что не так....

uses crt,dos;
var
fs:array[1..256]of string;
dir:searchrec;
i,c:byte;
s2,pap,pp,f,nf:string;
t:text;
procedure nef;
begin
clrscr;
write('FileName: ');
readln(f);
nf:=pap+'\'+f;
assign(t,f);
rewrite(t);
end;
begin
repeat
i:=0;
clrscr;
getdir(0,pap);
pp:=pap+'\';
findfirst(pp+'*.*',anyfile,dir);
while doserror=0 do
begin
inc(i);
fs[i]:=dir.name;
writeln(i,') ',dir.name);
findnext(dir);
end;
readln(f);
if f='n' then nef;
val(f,c);
s2:=copy(fs[c],length(fs[c])-2,3);
if (s2='wav') or (s2='mp3') then exec('wmplayer',fs[c]);
if (s2='bmp') or (s2='jpg') or (s2='gif') then exec('mspaint',fs[c]);
if (s2='txt') or (s2='ini') or (s2='pas') or (s2='bak') then exec('notepad',fs[c]);
if s2='exe' then exec(fs[c],'')
else chdir(fs[c]);
until false;
readln;
end.