Показать сообщение отдельно
  #6  
Старый 15.07.2013, 23:25
vazer vazer вне форума
Прохожий
 
Регистрация: 14.07.2013
Сообщения: 4
Версия Delphi: delphi 2010
Репутация: 10
По умолчанию

так, в общем, вопрос решил, может не очень красиво, конечно.
но спасибо lmikle за идею, действительно сделал со списком.

Код:
 if checkbox1.Checked=true then //если рандомные
          begin
              Randomize;
                 if checkbox2.Checked = true then //если без повторений
                      begin
                        if l>1 then //
                             begin
                              indx:=random(l);
                              upr:=mas[indx];
                              for i:=indx to l do
                                  mas[i]:=mas[i+1];
                              l:=l-1;
                             end
                                          else
                             begin
                               showmessage('last exercise for today');
                               upr:=mas[l-1];
                               endofupr:=false;
                             end;

вот шматок кода, если кому интересно.
теперь задам еще несколько вопросов, с вашего позволения.

1)решил прописать программу в автозагрузку, воспользовавшись вот этим вот. хотел спросить: arunonce если тру, то добавляет в автозагрузку только раз, потом я могу отключить и все.
а если фолс, то включается постоянно, даже если галочку убрать, я правильно понимаю?

Код:
procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );
 var
 hKey: string;
 hReg: TRegIniFile;
 begin
 if aRunOnce then hKey := 'Once'
 else
 hKey := '';
 hReg := TRegIniFile.Create( '' );
 hReg.RootKey := HKEY_LOCAL_MACHINE;
 hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run'
 + hKey + #0,
 aProgTitle,
 aCmdLine );
 hReg.destroy;
 end;
в общем, из-за этой процедуры у меня не включается комп=\ показывает черный экран с мышью после приветствия, и все. приходится через безопасный режим удалять программу, убирать из автозагрузки и тд.
хотя вообще не понимаю, как это связано.

2)меня в автозагрузке висят несколько старых названий этой программы(я их менял в процессе создания), без галочек уже, конечно, и с несуществующими реальными адресами. их можно оттуда убрать? а то напрягает немного,и вдруг это как-то мешает, и поэтому не работает автозагрузка по-новой.

при чем если с одной из программ совпадает и имя и расположение, а получается, что одна с галочкой, а вторая(старая), без.

3)ну и вопрос с автоматическим включением программы нужно решать: может кто знает другой путь для добавления туда?
Ответить с цитированием