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

if s2=ADOTable3Run.AsString then

jarlik(s1,'C:\setup\Internet\'+ADOTable3Program.AsString+'.lnk','','');

ADOTable3.Next;

end;

while not ADOTable4.Eof do

begin

if s2=ADOTable4Run.AsString then

jarlik(s1,'C:\setup\Office\'+ADOTable4Program.AsString+'.lnk','','');

ADOTable4.Next;

end;

while not ADOTable5.Eof do

begin

if s2=ADOTable5Run.AsString then

jarlik(s1,'C:\setup\Utilites\'+ADOTable5Program.AsString+'.lnk','','');

ADOTable5.Next;

end;end;end;

begin

ProgressBar1.Max:=5000;i:=0;

CreateDir('C:\setup');

CreateDir('C:\setup\Internet');

CreateDir('C:\setup\Entertainments');

CreateDir('C:\setup\Games');

CreateDir('C:\setup\Office');

CreateDir('C:\setup\Utilites');

assignfile(f,'REZ.txt');

rewrite(f);

LookDir('C:\Program Files', '.exe',ListBox1.Items);

reset(f);setap;

closefile(f);