Загрузка процессора с выше 50%

[Talemir]

Из Delphi я запускаю свой проект, и загрузка процессора, ту же привешает 50 %. А также призапуске простого .exe написанного мною то же самое загрузка с выше 50%.

А на чужих примерниках, загрузка проца почти не колеблется.

Подскажите, что влияет в проекте на загрузку процессора и как ее снизить???

[raxp]

ВАШ свой проект имеет код? выкладывайте... может у вас в бесконечный цикл уходит, может некорректно с потоком работаете, а может вы файлы в память грузите, предположений множество...

[Arigato]

Не видя кода того, что Вы запускаете, что-либо Вам посоветовать не возможно.

[Talemir]

Необходимо прописать Alias: Phone

[mihali4]

procedure TForm1.IdleProc(Sender: TObject; var Done:Boolean);
begin
 //StatusBar1.Panels[0].Text:=TimeToStr(Time);
 Done:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   //Application.OnIdle:=IdleProc;
end;

Всего-навсего !
Зачем было вставлять этот дурацкий цикл ?
Поставьте секундный таймер и меняйте...
Зачем вообще в строке статуса показывать время ? Мало часов винды ?

[Talemir]

Сообщение от mihali4

procedure TForm1.IdleProc(Sender: TObject; var Done:Boolean);
begin
 //StatusBar1.Panels[0].Text:=TimeToStr(Time);
 Done:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   //Application.OnIdle:=IdleProc;
end;

Всего-навсего !
Зачем было вставлять этот дурацкий цикл ?
Поставьте секундный таймер и меняйте...
Зачем вообще в строке статуса показывать время ? Мало часов винды ?

Отключив процедуру:

procedure TForm1.FormCreate(Sender: TObject);
begin
//Application.OnIdle:=IdleProc;
end;[/CODE]

ЦП находится практически в покое, но если я использую данную процедуру для просмотра пути подключения БД, или указывая какое либо действие!
Как быть тогда в данном случае???

[Пепел Феникса]

но если я использую данную процедуру для просмотра пути подключения БД

вам это надо делать постоянно?

указывая какое либо действие!

так говорите это свое действие...ведь наверняка есть методы получше.

[_bAd_]

Значит мой вопрос был хорошо поставлен! ))))))))))) а жаль

Talemir: а ты не используй эту процедуру. ни для просмотра чего-то там, ни для чего другого.
Плохая примета использовать её.
Я делаю так: создаю таймер по дефолту енейбленый. В теле его обработчика первой же строкой дисейблю таймер и пускаю цикл
Вайл НОТ(стоп) ду
бегин
- тут делаю что надо
- а потом фигачу аппликейшн процесс мессаджес
- а потом фигачу слип
енд;


Для слипа даже можно динамически рассчитывать передаваемый параметр из рассчета на какой-либо уровень загрузки ЦП или определённый ФПС. ( если стоит хотябы слип(0) - ФПС никогда не подымаетсявыше 66 почему-то )

[Talemir]

_bad_! Я в принципе понял, к чему вы ведете воспользуюсь вашиму совету.
Огромное всем спасибо, кто оказал помощь и содействие!!!