1function GetShortName(sLongName: string): string;
2var
3  sShortName:    string;
4  nShortNameLen: Integer;
5  Pos : Integer;
6  TmpName,
7   TmpStr : String;
8  TmpExt : String;
9begin
10    Result := '';
11    TmpName := sLongName;
12    Pos := System.Pos('\', TmpName);
13    //Cut every directoryname down to 8 characters.
14    while Pos <> 0 do
15     Begin
16      TmpStr := Copy(TmpName,1, Pos-1);
17      TmpName := Copy(TmpName,Pos+1, Length(TmpName));
18      if Length(TmpStr) > 8 then
19       Begin
20        TmpStr := ANSIReplaceText(TmpStr, ' ', '');
21        TmpStr := Copy(TmpStr, 1, 6) + '~1';
22       end;
23      Result := Result + TmpStr + '\';
24      Pos := System.Pos('\', TmpName);
25     end;
26    if Length(TmpName) <> 0 then//Contains a filename
27     Begin
28      TmpExt := ExtractFileExt(TmpName);
29      TmpName := ChangeFileExt(TmpName, '');
30      if Length(TmpExt) > 4 then//With the dot
31       Begin
32        TmpName := ANSIReplaceText(TmpName, ' ', '');
33        Result := Result + Copy(TmpName, 1, 6) + '~1';
34        Result := Result + Copy(TmpExt, 1, 4);
35       end
36      else
37       Begin
38        if Length(TmpName) > 8 then
39         Begin
40          TmpName := ANSIReplaceText(TmpName, ' ', '');
41          Result := Result + Copy(TmpName, 1, 6) + '~1' + TmpExt;
42         end
43        else
44         Result := Result + TmpName + TmpExt;
45       end;
46     end;
47end;