Свернуть консоль в трей

[DIgorevich]

Вот, замените соответствующую процедуру:

procedure TFMain.FormCreate(Sender: TObject);
  var
    f:TIniFile;
//    i : Integer;
begin
  if ShowWindow(FindWindow(nil, 'PrServer'), sw_hide) then
    begin
      CreateTrayIcon(1);//Создаем иконку в трее
    end;
      Randomize;
      NeedSaveIni:=false;
      file_name:='';
      AllInfo:=TStringList.Create();
      //установки формата для вывода даты и времени
      DateSeparator:='/';
      ShortDateFormat:='d/mm';
      LongTimeFormat:='hh:mm';
      //установка IP-адреса сервера
      if (not FileExists(GetCurrentDir()+'\..\ServerIni.ini')) then
        IdTCPClient1.Host:='localhost'
      else
        begin
         f:=TIniFile.Create(GetCurrentDir+'\..\ServerIni.ini');
         IdTCPClient1.Host:=f.ReadString('Host','IPadd','localhost');
        end;
      //инициализация параметров для работы с вопросами в разных режимах
      Cur:=0;
      CanClose:=false;
      t:=TLoadTestTesting.Create(Color);
      t1:=TLoadTestDemo.Create(Color);
      t3:=TLoadTestMain.Create(Color);
      t2:=t1;
      //проверка доступности сервера
      try
        IdTCPClient1.Connect();
        IdTCPClient1.Write('|work|');
        IdTCPClient1.Disconnect();
        ServerWork:=true;
      except
        ServerWork:=false;
      end;
      OKBottomDlg:=TOKBottomDlg.Create(Application);
      if not ServerWork then
        begin
          MResult.Enabled:=false;
          // MTest.Enabled:=false;
          LUser.Caption:='Выполняет: Гость';
          // RBTest.Enabled:=false;
        end
      else
        begin
          if Copy(ParamStr(1), 1, 4) <> 'exec' then
            if (OKBottomDlg.ShowModal = mrCancel) then
              begin
                Application.Minimize;
                Application.Terminate;
              end;
        end;
      if FOpt=nil then
       FOpt:=TFOpt.Create(Application);
      if FGrTest=nil then
        begin
          FGrTest:=TFGrTest.Create(Application);
          FGrTest.ComboBox1.Items:=t1.AllGroups.GetNameAllGr;
          FGrTest.ComboBox1.ItemIndex:=0;
        end;
      {if not t2.CurTest.ManyBM then
      begin
       ButUpDown.Enabled:=false;
      end
      else
      begin
       ButUpDown.Enabled:=true;
      end;}
      Timer1.Enabled:=true;
      Timer1Timer(self);
      WorkWithCommandLine();
      FOpt.BitBtn1Click(nil);
      FGrTest.BOkClick(nil);
end;

И будет запускаться.... А Вы обратили внимание, какая иконка у сервера сейчас? Ее нет, т.е. пустая. Насчет имени тоже немного непонятно. Сервер сейчас так и называется: PrServer

[FreeBrain]

Ну когда в трее появляется иконка, я хотела бы, чтобы появлялась иконка Server, которая лежит в папке Server. И чтобы при наведении мыши на иконку высвечивалось PrServer, а не MetaTest, как было.
А в каком файле эта процедура, не могу найти?

[DIgorevich]

Поместите файл Server.ico в папку с основной программой. Замените файл:
AMainForm.rar там же.

[FreeBrain]

Ничего не изменилось. Также виснет((

[DIgorevich]

Ничего не понимаю...
Вы сервер откуда запускаете?
Скиньте мне в личку логин и пароль, под которым виснет. В основном коде программы ничего не менялось...

Вообще-то, Ваша программа (из этого поста: http://programmersforum.ru/showpost....9&postcount=71), даже без изменений зависает с этим логином\паролем... Есть рабочий вариант?

[FreeBrain]

http://www.programmersforum.ru/showt...=111403&page=7

Вот тут я прикрепляла. Я проверила- виснуть стало после того, как мы имя консоли сделали постоянным. Как это вообще связано...

[DIgorevich]

Сейчас, может разберусь.

[FreeBrain]

Извините, что пропала. У меня интернет упал. Пишу с телефона. Надеюсь, в
ечером зайду

[DIgorevich]

Вы можете смело отключаться... Буду до вечера разбираться...

[FreeBrain]

Фуф, я пока еще здесь. Вопрос- а можно все-таки сделать, чтобы как раньше без запущенного сервера запускалось приложение?