FreePascal.ru

Сорри, в каком модуле NtQueryInformationProcess? Windows и jwatlhelp32 недостаточно.

Как найти командную строку нужного процесса в Windows?
Мне нужно для определенных запущенных процессов найти файлы, с которыми процесс запущен.
Сами процессы ищутся так:


uses ...Windows, jwatlhelp32...

procedure GetProcessParam;
var
Snapshot: THandle;
pe: TProcessEntry32;
begin
Snapshot ...

Pavia Таймер миллисекунды правильно выдает, без пропусков.

Без overlapped попробую, это надо будет в исходниках модуля Synaser из библиотеки Synapase ковыряться.

Посылается запрос на скорости вплоть до 3 МБод (переходник с USB на FT232R поддерживает).
На посылку приходит ответ от прибора, практически сразу (задержка - менее пары сотен микросекунд), длина посылок ограничена 256 байт (ограничение прибора), если компьютер не получил ответ на посылку в течении ...

Работаю с СОМ-портом из Windows, использую модуль Synaser из библиотеки Synapase.
При чтении порта данные приходят частями с интервалом 15-17 мс. Вот пример лога чтения ответа на очередной запрос:
16:54:23.621 _Send> 03 41 00 06 C8 38 8A 34
16:54:23.621 _isRC>
16:54&#58 ...

serbod Это не совсем то, что надо. У меня MyDevice содержит описание программной модели ресурсов железячных приборов. MyUart - реализация протокола обмена с прибором (порой стандартного, чаще нет), с учетом ограничения ресурсов прибора. То есть MyUart должен быть по сути одним из группы свойств для ...

// Модуль MyDevice
uses MyUart;

type
TMyDevice = class
private
Freg : array[0..1023] of word;
procedure SetReg(Index: integer; Value:word);
function GetReg(Index: integer) :word;
public
UART: TMyUart;
property Reg[i:integer]:word ...

Дож , спасибо! Кое-что прояснилось.
Единственно надо, чтобы FSym был элементом множества TToken, а не строкой.

Потому что я не указал, но есть еще такое определение:
SYMBOLS = { '{': LBRA, '}': RBRA, '=': EQUAL, ';': SEMICOLON, '(': LPAR, ')': RPAR, '+': PLUS, '-': MINUS, '<': LESS }

И еще, как ...

Подскажите, как красиво и правильно нижеследующий фрагмент перевести с питона на паскаль?

class Lexer&#58;

NUM, ID, IF, ELSE, WHILE, DO, LBRA, RBRA, LPAR, RPAR, PLUS, MINUS, LESS, \
EQUAL, SEMICOLON, EOF = range(16)

WORDS = { 'if'&#58; IF, 'else'&#58; ELSE, 'do'&#58; DO, 'while'&#58; WHILE ...

zub Огромное спасибо! Вроде то что надо.

Показалось мне, что моя разросшаяся программа на лазарусе под Windows стала медленно работать. Добавил контроль времени исполнения некоторых процедур, нашел и исправил некоторые проблемы, стало работать в несколько раз быстрее. Проверял примерно так:

QueryPerformanceFrequency(iCounterPerSec ...

Может глупый вопрос, но вот все классы начинаются с буквы "Т", поинтеры с "P"

Переменные в секции private - c буквы "F"
TCustomScrollBar = class(TWinControl)
private
FKind&#58; TScrollBarKind;
FPosition&#58; Integer;
FMin&#58; Integer;
FMax&#58; Integer;
&#46;&#46;&#46;


В событиях ...

О, похоже GetWordAtRowCol именно то, что надо!

Добавлено спустя 16 часов 10 минут 58 секунд:
Получилось! Может кому пригодится.

procedure TForm1&#46;SynEdit1MouseMove(Sender&#58; TObject; Shift&#58; TShiftState; X, Y&#58; Integer);
var
ln &#58; integer;
wrd &#58; string;
begin
ln &#58;= Y ...

Собственно сабж.
Мне в событии SynEdit1MouseMove надо вывести хинт, относящийся к текущему слову под курсором мыши.
Есть для этого стандартные средства?
Пока приходит в голову только
procedure TForm1&#46;SynEdit1MouseMove(Sender&#58; TObject; Shift&#58; TShiftState; X, Y&#58; Integer);
var
s &#58 ...

Имеется на TImage1 ч/б картинка (градации серого)
И такого же размера TImage2, залитый градиентной цветной маской.
Надо получить итоговое изображение, где цвет пикселя равен маске, а яркость пикселя - ч/б картинке.
В цикле по X,Y попиксельно получается дико медленно, у меня прорисовка заняла около ...