Загрузка ShellExecute из shell32.dll

[IgorKr]

Здравствуйте. Не получается вызвать фукнцию ShellExecute с dll файла.

Вот пример кода:

HINSTANCE dll;
typedef HINSTANCE (*PFN_MyFunction)(HWND, LPCTSTR, LPCTSTR, LPCTSTR, LPCTSTR, INT);
PFN_MyFunction pfn_myfunction;

void __fastcall TForm1::Label3Click(TObject *Sender)
{
pfn_myfunction(NULL,TEXT("open"),TEXT("Program Files\\totalcmd\\totalcmd.exe"),NULL,NULL,0);
}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
dll=::LoadLibraryA("shell32.dll");
if(dll!=NULL)
{
pfn_myfunction=(PFN_MyFunction)GetProcAddress(dll,"ShellExecute");

}
else MessageBox(NULL,"Don't load library: shell32.dll","Error",MB_OK);

}

Оставил только несколько функций, чтобы было легче разбиратся в коде.