[vah-smile]

Сообщение от Alegun

Код:

...

  type
TMyLabel = class(TLabel)
private
 fTxt : string;
 published
   property MyText: string read fTxt write fTxt;
end;

...

var
title: array of TMyLabel;

...

title[i]:= TMyLabel.Create(ScrollBox1);
title[i].MyText:= 'C:\file.doc';

...

procedure MyClick(Sender:TObject);
begin
ShellExecute (Handle, 'open',(Sender as TMyLabel).MyText , nil, nil, SW_SHOWNORMAL);
end;

СПАСИБО за помощь!

Единственная поправка: нужно перетворить тип String в PAnsiChar

Код:

procedure TForm1.MyClick(Sender:TObject);
var open_file: PAnsiChar;
begin
  open_file:=PAnsiChar((Sender as TMyLabel).MyText);
  ShellExecute (Handle, 'open', open_file, nil, nil, SW_SHOWNORMAL);
end;