[Delphi] Pobieranie krótkiej nazwy pliku

Chodzi mi o nazwę a la DOS - np. C:mojedo~1xx.txt, musi być do String albo PChar. Z góry dzięki :)

Strona mojej grupki programistycznej: www.blaze.er.pl

gg: 4644238 | tlen: chomik-programista

---

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ShellCtrls, StdCtrls, ComCtrls; type  TForm1 = class(TForm)    ShellTreeView1: TShellTreeView;    Edit1: TEdit;    Edit2: TEdit;    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);  private    { Private declarations }  public    { Public declarations }    function ShortPath(LongPath : string) : string;  end; var  Form1: TForm1; implementation {$R *.dfm} function Tform1.ShortPath(LongPath : string) : string; var  Buffer: array[0..MAX_PATH-1] of Char; begin  SetString(Result,Buffer,GetShortPathName(PAnsiChar(LongPath),Buffer,SizeOf( Buffer))); end; procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin    Edit1.Text := ShellTreeView1.Path;                          // Edit1 wyświetla ścieżkę przed konwersją;    Edit2.Text := LowerCase(ShortPath(ShellTreeView1.Path));  //  Edit2 wyświetla ścieżkę po konwersji; end; end.

//----------------------
z_forum_experta@beldzio.com
www.beldzio.com
www.beldzio.com/forum
callto://beldzio_software

Bełdzio, wielkie THX :) - pomogło mi :)

Strona mojej grupki programistycznej: www.blaze.er.pl

gg: 4644238 | tlen: chomik-programista

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl