unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}     function GetShortName(sLongName : string) : string;
 var
   sShortName    : string;
   nShortNameLen : integer;
 begin
   SetLength(sShortName, MAX_PATH);       nShortNameLen := GetShortPathName(PChar(sLongName),
                      PChar(sShortName), MAX_PATH-1);       if nShortNameLen = 0 then
   begin
     { handle errors... }
   end;       SetLength(sShortName, nShortNameLen);       Result := sShortName;
 end;     function GetLongName_(sShortName : string; var bError : boolean) : string;
 var
   bAddSlash : boolean;
   SearchRec : TSearchRec;
   nStrLen   : integer;
 begin
   bError    := False;
   Result    := sShortName;
   nStrLen   := Length(sShortName);
   bAddSlash := False;       if sShortName[nStrLen] = '\' then
   begin
     bAddSlash := True;
     SetLength(sShortName, nStrLen-1);
     dec(nStrLen);
   end;
   
   if((nStrLen-Length(ExtractFileDrive(sShortName))) > 0) then
   begin
     if FindFirst(sShortName, faAnyFile, SearchRec) = 0 then
     begin
       Result := ExtractFilePath(sShortName)   SearchRec.name;
       if bAddSlash then
       begin
         Result := Result   '\';
       end;
     end
     else
     begin
       // handle errors...       bError := True;
     end;
     FindClose(SearchRec);
   end;
 end;     function GetLongName(sShortName : string) : string;
 var
   s      : string;
   p      : integer;
   bError : boolean;
 begin
   Result := sShortName;
   
   s := '';
   p := Pos('\', sShortName);
   while(p > 0)do
   begin
     s := GetLongName_(s   Copy(sShortName, 1, p), bError);
     Delete(sShortName, 1, p);
     p := Pos('\', sShortName);         if(bError)then
       Exit;
   end;
   if sShortName <> '' then
   begin
     s := GetLongName_(s   sShortName, bError);
     if bError then
       Exit;
   end;
   Result := s;
 end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  caption:=GetShortName(edit1.text);
end;    procedure TForm1.Button2Click(Sender: TObject);
begin
  caption:=GetLongName(edit2.text);    end;    end.