Add(InlineCode,2961482,182,112)
{
 @Hint=#7:Get PID|
 VarPoints=#11:MyProcessID|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|9:   public|49:   procedure MyProcessID(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.MyProcessID;|5:begin|36:  dtInteger(dt,GetCurrentProcessId);|4:end;|0:|4:end.|
}