[NickDang]

Ладно, пробую ещё раз. Захожу в Unit1.pas. меняю

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Self.Handle,'open','D:\',nil,nil,SW_SHOWNORMAL);

end;

на

procedure TForm1.Button1Click(Sender: TObject);
var driveName:string;
begin
driveName := ExtractFileDrive(Application.ExeName);
ShellExecute(Self.Handle,'open',driveName + '\',nil,nil,SW_SHOWNORMAL);
end;

закрываю, сохраняю. Теперь запускаю Project2.dpr. Нажимаю выполнить (f9). Что произошло, смотрим на рисунке "Безымянный".