Add(MainForm,2953706,112,63)
{
 Width=270
 Height=122
 Caption="GetLongPathName"
 Position=1
}
Add(InlineCode,7057760,168,126)
{
 WorkPoints=#17:doGetLongPathName|
 EventPoints=#8:onResult|
 DataPoints=#13:ShortPathName|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|32:uses Windows, kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|39:    ShortPathName, onResult: THI_Event;|61:    procedure doGetLongPathName(var _Data:TData; Index:word);|5: end;|0:|70:function GetLongPathName(lpszShortName: LPCTSTR; lpszLongName: LPTSTR;|59:                         cchBuffer: DWORD): DWORD; stdcall;|67:                         external kernel32 name 'GetLongPathNameA';|0:|14:implementation|0:|40:procedure THiAsmClass.doGetLongPathName;|3:var|21:  str1, str2: string;|15:  len: integer;|5:begin|43:  str1 := ReadString(_Data, ShortPathName);|34:  SetLength(str2, MAX_PATH + 1);  |58:  len := GetLongPathName(PChar(str1), @str2[1], MAX_PATH);|23:  SetLength(str2, len);|30:  _hi_onEvent(onResult, str2);|4:end;|0:|4:end.|
 link(onResult,12429375:doText,[])
 link(ShortPathName,1595410:Text,[])
}
Add(Edit,1595410,168,63)
{
 Left=10
 Top=10
 Width=235
 Text="c:\progra~1\"
}
Add(Button,2253043,112,126)
{
 Left=70
 Top=60
 Width=105
 TabOrder=-1
 Caption="GetLongPathName"
 link(onClick,7057760:doGetLongPathName,[])
}
Add(Edit,12429375,224,126)
{
 Left=10
 Top=35
 Width=235
 Text=""
}