ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Задержка выполнения программы.[Delphi]
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Задержка выполнения программы.[Delphi]
  #1  
Старый 22.05.2010, 23:26
ZnikiR
Участник форума
Регистрация: 14.01.2009
Сообщений: 194
Провел на форуме:
798217

Репутация: 44
Отправить сообщение для ZnikiR с помощью ICQ
По умолчанию Задержка выполнения программы.[Delphi]
Есть программа,первая часть выполняется сразу.
Хочу сделать,чтобы вторая часть программы выполнялась через 5 минут после запуска программы.
Можно ли это реализовать?
 
Ответить с цитированием

  #2  
Старый 22.05.2010, 23:27
[ac1D]
Banned
Регистрация: 06.12.2009
Сообщений: 47
Провел на форуме:
191390

Репутация: 74
По умолчанию
Sleep();
 
Ответить с цитированием

  #3  
Старый 22.05.2010, 23:30
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию
Цитата:
Сообщение от ZnikiR  
Есть программа,первая часть выполняется сразу.
Хочу сделать,чтобы вторая часть программы выполнялась через 5 минут после запуска программы.
Можно ли это реализовать?
Создать дополнительный поток при старте, и в нем с самого начала Sleep(5*60*1000);


гугли CreateThread();
 
Ответить с цитированием

  #4  
Старый 22.05.2010, 23:30
h(f)ucker
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
Провел на форуме:
2835808

Репутация: 185
По умолчанию
компонент Timer чем не вариант? (ну или для второй части можно задать какое-либо(любое) условие для выполнения)
P.s. при sleep программа "подвисает"
 
Ответить с цитированием

  #5  
Старый 22.05.2010, 23:31
[ac1D]
Banned
Регистрация: 06.12.2009
Сообщений: 47
Провел на форуме:
191390

Репутация: 74
По умолчанию
Код:
TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TNewThread.Execute;
begin
  Sleep(5000);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;
 
Ответить с цитированием

  #6  
Старый 22.05.2010, 23:32
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию
Цитата:
Сообщение от h(f)ucker  
компонент Timer чем не вариант?
P.s. при sleep программа "подвисает"
при Sleep() она замораживается...
Есть аналог в виде Delay (http://www.delphisources.ru/pages/faq/base/delay_func.html), но я не рекомендую его использовать
 
Ответить с цитированием

  #7  
Старый 22.05.2010, 23:35
AlexTheC0d3r
Постоянный
Регистрация: 25.07.2008
Сообщений: 454
Провел на форуме:
1229135

Репутация: 425
Отправить сообщение для AlexTheC0d3r с помощью ICQ
По умолчанию
Цитата:
Сообщение от [ac1D]  
Код:
TNewThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TNewThread.Execute;
begin
  Sleep(5000);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  NewThread: TNewThread;
begin
  NewThread:=TNewThread.Create(true);
  NewThread.FreeOnTerminate:=true;
  NewThread.Priority:=tpLower;
  NewThread.Resume;
end;

Советую перейти от такого создания потоков к CreateThread()... в данном случае код получится намного компактнее и эффективнее
 
Ответить с цитированием

  #8  
Старый 23.05.2010, 17:20
ZnikiR
Участник форума
Регистрация: 14.01.2009
Сообщений: 194
Провел на форуме:
798217

Репутация: 44
Отправить сообщение для ZnikiR с помощью ICQ
По умолчанию
Так сейчас пробывал,ничего не получилось.
Можешь показать как сделать комактнее?
 
Ответить с цитированием

  #9  
Старый 24.05.2010, 02:16
miako
Познающий
Регистрация: 20.01.2010
Сообщений: 43
Провел на форуме:
41357

Репутация: 6
По умолчанию
Скинь код, посмотрим что там не получилось. Сдесь не экстрасенсы
 
Ответить с цитированием

  #10  
Старый 24.05.2010, 07:46
M_script_
Постоянный
Регистрация: 29.10.2008
Сообщений: 306
Провел на форуме:
1819761

Репутация: 180
Отправить сообщение для M_script_ с помощью ICQ
По умолчанию
Цитата:
Сообщение от AlexTheC0d3r  
Советую перейти от такого создания потоков к CreateThread()... в данном случае код получится намного компактнее и эффективнее
Чем эффективнее?
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработчики Mozilla представили технологию изолированного выполнения плагинов Suicide Мировые новости 8 17.12.2009 12:05
Новый механизм для безопасного выполнения подозрительных программ в Linux Suicide Мировые новости 2 27.05.2009 22:47
ТРЕБУЮТСЯ кодеры для выполнения студенческих работ lisa99 О Работе 7 23.12.2008 20:58
Нужна задержка nc.STRIEM С/С++, C#, Delphi, .NET, Asm 4 31.05.2006 14:54



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ