Opening of File folder from OnMouseDown event of Shape1 object

I would like to make a form with picture in backraund. And on this picture i'll have same shapes which will connect me to defined folders when it would be clicked on the shapes.

Thank you




For example would like to open folder :  D:\pc1Lo
 from the event OnMouseDown kliking on shape1.
pr2501Asked:
Who is Participating?
 
MerijnBSr. Software EngineerCommented:
see attached example:
uses ShellAPI;
 
{$R *.dfm}
 
procedure OpenFolder(FolderName: string);
begin
 Screen.Cursor := crHourGlass;
 
 try
  ShellExecute(0, 'open', PChar(FolderName), '', '', SW_SHOWNORMAL);
 finally
  Screen.Cursor := crDefault;
 end;
end;
 
procedure TForm2.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 OpenFolder('D:\pc1Lo');
end;

Open in new window

0
 
pr2501Author Commented:


For example would like to open folder :  D:\pc1Lo

 from the event OnMouseDown kliking on shape1.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.

Advertise Here