ShellExecute не работает без OpenDialog, хотя последний там никаким боком

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
//OpenDialog1->Execute();
AnsiString Pth = Edit1->Text;
ShellExecute(0, 0, "FFD.exe", Pth.c_str(), 0, SW_SHOW);
Application->Terminate();
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
 
}
//---------------------------------------------------------------------------

OpenDialog1->Execute();

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString path = "C:\\MyPrograms";
    ::ShellExecute(0, 0, path.c_str(), 0, 0, 1);
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
CoInitialize(0); // Скобки у тебя где? Параметр где?
AnsiString Pth = Edit1->Text.c_str();
ShellExecute(0, 0, "FFD.txt", Pth.c_str(), 0, SW_SHOW);
ShowMessage("Secceseful");
CoUninitialize(); // Скобки где?
// Application->Terminate();
}

STARTUPINFO si;
memset(&si, 0, sizeof(STARTUPINFO));
si.cb = sizeof(si);
 
PROCESS_INFORMATION processInformation;
memset(&processInformation, 0, sizeof(PROCESS_INFORMATION));
 
const AnsiString sCMD = /*лучше указать полный путь к файлу*/"FFD.exe " + 
    /*если параметр в виде файла, то лучше взять в кавычки*/Edit1->Text;
 
if (!CreateProcess(NULL, sCMD.c_str(), NULL, NULL, 0, 0, NULL, NULL/*сюда написать текущую директорию, если нужно*/, &si,
        &processInformation)) {
    ShowMessage(SysErrorMessage(GetLastError()));
}

CreateProcess(NULL, "notepad.exe c:/Windows/System32/drivers/etc/hosts",
NULL, NULL, 0, 0, NULL, "c:/Windows/System32", &si, &processInformation)

CreateProcess(NULL, "c:/Windows/System32/notepad.exe c:/Windows/System32/drivers/etc/hosts",
NULL, NULL, 0, 0, NULL, NULL, &si,&processInformation)

#include <memory>
#include <Registry.hpp>
 
AnsiString sExeName = "chrome.exe";
const AnsiString sParams = "google.com";
 
AnsiString sFolder = "";
 
// пробуем найти файл в реестре, в разделе "App Paths"
std::auto_ptr<TRegistry>ARegistryPtr(new TRegistry());
ARegistryPtr->RootKey = HKEY_LOCAL_MACHINE;
if (ARegistryPtr->KeyExists("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\" + sExeName)) {
    if (ARegistryPtr->OpenKeyReadOnly("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\" + sExeName)) {
        sExeName = ARegistryPtr->ReadString(""); // определяется в реестре как значение по умолчанию
        sFolder = ARegistryPtr->ReadString("Path");
        
        ARegistryPtr->CloseKey();
    }
}
 
 
STARTUPINFO si;
memset(&si, 0, sizeof(STARTUPINFO));
si.cb = sizeof(si);
 
PROCESS_INFORMATION processInformation;
memset(&processInformation, 0, sizeof(PROCESS_INFORMATION));
 
const AnsiString sCMD = sExeName + " " + sParams;
 
if (!CreateProcess(NULL, sCMD.c_str(), NULL, NULL, 0, 0, NULL, sFolder.IsEmpty() ? NULL : sFolder.c_str(), &si, &processInformation)) {
    ShowMessage(SysErrorMessage(GetLastError()));
}

OpenDialog1->Execute();