Langer Dateiname bzw. langer PathName in kurzen umwandeln

[Hobby-Programmierer]

Moin ...,
zumindest bei D6 ist die Hilfe sehr zurückhaltend, deshalb kurzes Bsp.

Delphi-Quellcode:

uses FileCtrl;

var Path: string;
begin
  Path:='c:\windows\system32\config\systemprofile\ntuser.dat';
  Label.Caption:=MinimizeName(Path, Label.Canvas, 50);