自定义函数

unit ShortPath;
//
//                    引用单元原型                        //
//                      haiou327                         //
//                                        20090701      //
/interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
//  1       过程和函数声明部分
Function CoverShortPath(LongPath:string):string;implementation
// 函数实现部分                       函数原型
Function CoverShortPath(LongPath:string):string;
begin
result:='';
GetShortPathName(Pchar(LongPath),Pchar(LongPath),LengTh(LongPath));
result:=LongPath;
end;
end.