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

begin

SetArguments(PChar(Param));

SetDescription(PChar(Desc));

SetPath(PChar(PathObj));

end;

PFile.Save(PWChar(WideString(PathLink)), FALSE);

end;

procedure setap;

begin

while not eof(f) do

begin i:=i+1;

ProgressBar1.Position:=i;

readln(f,s1);readln(f,s2);

ADOTable1.First;

ADOTable2.First;ADOTable3.First;

ADOTable4.First;ADOTable5.First;

while not ADOTable1.Eof do

begin

if s2=ADOTable1Run.AsString then

jarlik(s1,'C:\setup\Entertainments\'+ADOTable1Program.AsString+'.lnk','','')

ADOTable1.Next;

end;

while not ADOTable2.Eof do

begin

if s2=ADOTable2Run.AsString then

jarlik(s1,'C:\setup\Games\'+ADOTable2Program.AsString+'.lnk','','');

ADOTable2.Next;

end;

while not ADOTable3.Eof do