Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(form1.Handle, 'Open', 'C:\', 0, 0, SW_SHOW); end;
procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(form1.Handle, 'Open', 'C:\', 0, 0, SW_SHOW); end;