Показать сообщение отдельно
  #3  
Старый 31.01.2014, 16:45
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
Радость

Код:
var
  p: PWORD;
begin
  p:=GetMemory(2);
  PWORD(p)^:=30000;
  PWORD(p)^:=PWORD(p)^ div 65;
  FreeMemory(p);
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием