Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 1 из 1161  2  3  4  5 ... 116  >
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
Появилось два вопроса:
1)Как принудительно поставить моей программе наивыший приоритет в системе
2)Как засечь время с большой точностью (0.001сек или около..)
Всё в Делфи7

Заранее спасибо

Здесь можно задавать различные (мелкие) вопросы, связанные с программированием на Delphi. Для вопросов, суть которых не связана с языком/средой Delphi, лучше поискать (если не найдется - создать) более подходящую тему.
vor



Партнер
 

Member
Статус: Не в сети
Регистрация: 07.10.2003
Откуда: Russia, Moscow
2) GetTickCount;

_________________
В поиске включайте "Искать все слова". Избегайте многоточий.
Зачем нужен разгон? http://tsc.overclockers.ru


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
armadillo в хелпе по предметному указателю такого не нашел :( что это?


 

Member
Статус: Не в сети
Регистрация: 07.10.2003
Откуда: Russia, Moscow
функция WinApi
возвращает текущее значение миллисекунд в формате dword
Help->Windows SDK

_________________
В поиске включайте "Искать все слова". Избегайте многоточий.
Зачем нужен разгон? http://tsc.overclockers.ru


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
armadillo Спасибо огромное - работаетю только вот не понял: в хелпе написано что-то типа если виндоус работает 49 дней...?:
The elapsed time is stored as a DWORD value. Therefore, the time will wrap around to zero if Windows is run continuously for 49.7 days.
я правильно понял - щетчик обнуляется? а может ли такое произойти (обнуление) во время работы программы?


 

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
Цитата:
может ли такое произойти (обнуление) во время работы программы?

Если система будет работать 49.7 дней - то да. :D

49.7 дней = 2^32 миллисекунд.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
vor догнал :) (а я думал, что каждые 49 дней в винде щетчихко этот обнуляется...)

а что насчет первого вопроса?
Цитата:
1)Как принудительно поставить моей программе наивыший приоритет в системе


 

Member
Статус: Не в сети
Регистрация: 07.10.2003
Откуда: Russia, Moscow
имхо поставить приоритет можно потоку. Смотри TThread.Priority

_________________
В поиске включайте "Искать все слова". Избегайте многоточий.
Зачем нужен разгон? http://tsc.overclockers.ru


 

Member
Статус: Не в сети
Регистрация: 20.11.2003
Когда засекаещь время - в цикле обязательно ставь Application.ProcessMessages; Иначе форма будет виснуть во время цикла. Вот пример задержки (вместо Sleep):

procedure Delay(ADelay : Cardinal);
var EndTime : Cardinal;
Begin
EndTime := GetTickCount + ADelay;
repeat
Application.ProcessMessages;
until GetTickCount >= EndTime;
end;


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Halst
Цитата:
а что насчет первого вопроса?

Цитата:
1)Как принудительно поставить моей программе наивыший приоритет в системе

var
ProcessID : DWORD;
ProcessHandle : THandle;
ThreadHandle : THandle;
begin
ProcessID := GetCurrentProcessID;
ProcessHandle := OpenProcess(PROCESS_SET_INFORMATION,false,ProcessID);
SetPriorityClass(ProcessHandle,REALTIME_PRIORITY_CLASS);
ThreadHandle := GetCurrentThread;
SetThreadPriority(ThreadHandle,THREAD_PRIORITY_TIME_CRITICAL);

end;

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
А как сделать чтобы прога знала свою дирректорию?


 

Member
Статус: Не в сети
Регистрация: 15.04.2004
Откуда: Москва
Halst
В дельфях - ExtractFilePath(paramstr(0)) - каталог, из которого был запущен exe-шник.

_________________
Цель жизни - d20 по жизни...


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
Avaddon спасиб!!!

Добавлено спустя 1 минуту, 57 секунд:
а ещё забыл - помню раньше как-то можно было сохранять из мемо прямо в файл - забыл как :(


 

Member
Статус: Не в сети
Регистрация: 15.04.2004
Откуда: Москва
Halst
Хорошая болезнь - склероз: Каждый день все новое :)
Memo.Lines.SaveToFile(aFileName);

_________________
Цель жизни - d20 по жизни...


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
Блин, совсем мозги засохли... Как изменить количество лайнов в комбо-боксеиз проги? я пытаюсь вставить , а он говорит, типа нет такой строки... я уверен, что если ктонить ответит мне, я посмотрю и скажу "как я мог так с-тупить?!"


 

Member
Статус: Не в сети
Регистрация: 07.10.2003
Откуда: Russia, Moscow
ComboBox1.AddItem()
Совет дня: используйте подсказку:
#77

_________________
В поиске включайте "Искать все слова". Избегайте многоточий.
Зачем нужен разгон? http://tsc.overclockers.ru


 

Member
Статус: Не в сети
Регистрация: 13.02.2004
Откуда: Вологда-Москва
armadillo :) во блин! а явсё мотрю в combobox.items.add и не работало 6)


 

Member
Статус: Не в сети
Регистрация: 20.11.2003
Код:
А как сделать чтобы прога знала свою дирректорию?

ПРога по умолчанию пользует папку из которой запущена, чтобы узнать ее- GetCurrentDir, чтобы изменить - SetCurrentDIr


 

Member
Статус: Не в сети
Регистрация: 14.01.2004
Откуда: Киев, Украина
Люди, вопрос по асмовским вставкам.
При компилировании на комманде out с любыми портами выдает Priveledge instructions.
PS Код рабочий на 100%

_________________
Ку ку


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Цитата:
При компилировании на комманде out с любыми портами выдает Priveledge instructions.
PS Код рабочий на 100%

А кто тебе сказал, что он рабочий? :) in/out под Windows делать нельзя, если ты не используеш спейиальный драйвер по типу GiveIO


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 2317 • Страница 1 из 1161  2  3  4  5 ... 116  >
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  

Лаборатория














Новости

Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan