Add(MainForm,2953706,126,154)
{
 link(onCreate,10060746:doPart,[])
}
Add(Edit,15933287,245,168)
{
 Left=10
 Top=10
 Width=365
 Text=""
 link(onChange,361315:doGetLongName,[])
}
Add(Edit,5034711,357,168)
{
 Left=10
 Top=35
 Width=365
 Text=""
}
Add(FilePartElm,10060746,189,168)
{
 Mode=5
 link(onPart,15933287:doText,[])
 link(FileName,9893726:AppFileName,[])
}
Add(Application,9893726,189,112)
{
}
Add(InlineCode,361315,301,168)
{
 @Hint=#11:GetLongName|
 WorkPoints=#13:doGetLongName|
 EventPoints=#13:onGetLongName|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|30:     onGetLongName: THI_Event;|80:     procedure doGetLongName(var _Data: TData; Index: word);  // path name WOExt|5: end;|0:|14:implementation|0:|4:type|77:  TFNGetLongPathName = function(lpszShortName: LPCTSTR; lpszLongName: LPTSTR;|38:    cchBuffer: DWORD): DWORD; stdcall;|58:  TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);|0:|4:type|28:  TSysLocale = packed record|22:    DefaultLCID: LCID;|22:    PriLangID: LANGID;|22:    SubLangID: LANGID;|21:    FarEast: Boolean;|24:    MiddleEast: Boolean;|6:  end;|11:           |3:var|44:  GetLongPathName: TFNGetLongPathName = nil;|30:  LeadBytes: set of Char = [];|26:  SysLocale: TSysLocale;  |2:  |63:function ByteTypeTest(P: PChar; Index: Integer): TMbcsByteType;|3:var|13:  I: Integer;|5:begin|25:  Result := mbSingleByte;|45:  if (P = nil) or (P[Index] = #$0) then Exit;|21:  if (Index = 0) then|7:  begin|51:    if P[0] in LeadBytes then Result := mbLeadByte;|5:  end|6:  else|7:  begin|19:    I := Index - 1;|53:    while (I >= 0) and (P[I] in LeadBytes) do Dec(I);|57:    if ((Index - I) mod 2) = 0 then Result := mbTrailByte|60:    else if P[Index] in LeadBytes then Result := mbLeadByte;|6:  end;|4:end;|0:|66:function ByteType(const S: string; Index: Integer): TMbcsByteType;|5:begin|25:  Result := mbSingleByte;|27:  if SysLocale.FarEast then|46:    Result := ByteTypeTest(PChar(S), Index-1);|4:end;|0:|61:function LastDelimiter(const Delimiters, S: string): Integer;|3:var|11:  P: PChar;|5:begin|22:  Result := Length(S);|25:  P := PChar(Delimiters);|21:  while Result > 0 do|7:  begin|64:    if (S[Result] <> #0) and (StrScan(P, S[Result]) <> nil) then|49:      if (ByteType(S, Result) = mbTrailByte) then|19:        Dec(Result)|10:      else|13:        Exit;|16:    Dec(Result);|6:  end;|4:end;|0:|56:function ExtractFileDir(const FileName: string): string;|3:var|13:  I: Integer;|5:begin|36:  I := LastDelimiter('\:',Filename);|40:  if (I > 1) and (FileName[I] = '\') and|43:    (not (FileName[I - 1] in ['\', ':']) or|57:    (ByteType(FileName, I-1) = mbTrailByte)) then Dec(I);|33:  Result := Copy(FileName, 1, I);|4:end;|0:|58:function ExtractFileDrive(const FileName: string): string;|3:var|16:  I, J: Integer;|5:begin|57:  if (Length(FileName) >= 2) and (FileName[2] = ':') then|34:    Result := Copy(FileName, 1, 2)|61:  else if (Length(FileName) >= 2) and (FileName[1] = '\') and|28:    (FileName[2] = '\') then|7:  begin|11:    J := 0;|11:    I := 3;|47:    While (I < Length(FileName)) and (J < 2) do|9:    begin|39:      if FileName[I] = '\' then Inc(J);|27:      if J < 2 then Inc(I);|8:    end;|37:    if FileName[I] = '\' then Dec(I);|35:    Result := Copy(FileName, 1, I);|24:  end else Result := '';|4:end;|0:|55:function ShortToLongFileName(FileName: string): string;|3:var|27:  FindData: TWin32FindData;|18:  Search: THandle;|5:begin|67:  // Use GetLongPathName where available (Win98 and later) to avoid|68:  // Win98 SE problems accessing UNC paths on NT/2K/XP based systems|35:  if Assigned(GetLongPathName) then|7:  begin|36:    SetLength(Result, MAX_PATH + 1);|78:    SetLength(Result, GetLongPathName(PChar(FileName), @Result[1], MAX_PATH));|5:  end|6:  else|7:  begin|17:    Result := '';|0:|74:    // Strip off one directory level at a time starting with the file name|76:    // and store it into the result. FindFirstFile will return the long file|37:    // name from the short file name.|19:    while (True) do|9:    begin|65:      Search := Windows.FindFirstFile(PChar(FileName), FindData);|0:|43:      if Search = INVALID_HANDLE_VALUE then|14:        Break;|0:|58:      Result := string('\') + FindData.cFileName + Result;|43:      FileName := ExtractFileDir(FileName);|32:      Windows.FindClose(Search);|0:|54:      // Found the drive letter followed by the colon.|35:      if Length(FileName) <= 2 then|14:        Break;|8:    end;|0:|50:    Result := ExtractFileDrive(FileName) + Result;|6:  end;|4:end;|0:|3:var|22:KernelHandle: THandle;|0:|36:procedure THiAsmClass.doGetLongName;|5:begin|67:  _hi_onEvent(onGetLongName, ShortToLongFileName(ToString(_Data)));|4:end;|0:|14:initialization|0:|44:KernelHandle := GetModuleHandle('KERNEL32');|25:if KernelHandle <> 0 then|69:@GetLongPathName := GetProcAddress(KernelHandle, 'GetLongPathNameA');|0:|4:end.|
 link(onGetLongName,5034711:doText,[])
 AddHint(47,-37,84,13,@Hint)
}