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

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

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

2) GetTickCount;

armadillo в хелпе по предметному указателю такого не нашел что это?

функция WinApi
возвращает текущее значение миллисекунд в формате dword
Help->Windows SDK

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.
я правильно понял - щетчик обнуляется? а может ли такое произойти (обнуление) во время работы программы?

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

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

vor догнал (а я думал, что каждые 49 дней в винде щетчихко этот обнуляется...)

а что насчет первого вопроса?

имхо поставить приоритет можно потоку. Смотри TThread.Priority

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

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

Halst

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;

А как сделать чтобы прога знала свою дирректорию?

Halst
В дельфях - ExtractFilePath(paramstr(0)) - каталог, из которого был запущен exe-шник.

Avaddon спасиб!!!

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

Halst
Хорошая болезнь - склероз: Каждый день все новое
Memo.Lines.SaveToFile(aFileName);

Блин, совсем мозги засохли... Как изменить количество лайнов в комбо-боксеиз проги? я пытаюсь вставить , а он говорит, типа нет такой строки... я уверен, что если ктонить ответит мне, я посмотрю и скажу "как я мог так с-тупить?!"

ComboBox1.AddItem()
Совет дня: используйте подсказку:
#77

armadillo во блин! а явсё мотрю в combobox.items.add и не работало 6)

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

Люди, вопрос по асмовским вставкам.
При компилировании на комманде out с любыми портами выдает Priveledge instructions.
PS Код рабочий на 100%

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