Курсовая работа: Основные принципы разработки графического пользовательского интерфейса

repeat

if (SearchRec.Attr and faDirectory) <> faDirectory then

begin

if ExtractFileExt(StartDir+SearchRec.Name) = Mask then

begin

List.Add(StartDir+SearchRec.Name);

s:=StartDir+SearchRec.Name;

k:=SearchRec.Name;

writeln(f,s);

writeln(f,k);i:=i+1;

ProgressBar1.Position:=i;

end;end

else

if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then

begin

LookDir(StartDir + SearchRec.Name + '', Mask,list);

end;

until FindNext(SearchRec) <> 0;

FindClose(SearchRec);

end;end;

procedure jarlik(const PathObj, PathLink, Desc, Param: string);

var

IObject: IUnknown;

SLink: IShellLink;

PFile: IPersistFile;

begin

IObject := CreateComObject(CLSID_ShellLink);

SLink := IObject as IShellLink;

PFile := IObject as IPersistFile;