При запусте программы, она читает данный из файла, в той папка от куда запущена...

При запусте программы, она читает данный из файла, в той папка от куда запущена, прописую на неё путь в реестре на запус, она запускается, но почемуто не видет того файла..... Что делать?
Вот часть кода:

//-----------------------------------------------
BOOL OnlyOne(LPSTR szName);
----------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
ShowMessage(ParamStr(0)); // -Выписует
//правельный путь, тоисть вроде грузится с одной
//папки с файлом.
if(OnlyOne("My_Prog.exe")){
char cStr[1024];
ifstream fin(cStr,ios::in);

if(fin){
fin.getline(cStr,1024);
if(atoi(cStr) == 1) CheckBox1->Checked = true;
fin.getline(cStr,1024);
if(atoi(cStr) == 1) CheckBox2->Checked = true;
fin.getline(cStr,1024);
Edit1->Text = cStr;
fin.getline(cStr,1024);
Edit2->Text = cStr;

}

fin.close();
}
else{
MessageBox(NULL,"I?ia?aiia o?a caiouaia!","Ioeaea:",MB_OK|MB_ICONERROR);
exit(1);
}
}
//---------------------------------------------------------------------------

BOOL OnlyOne(LPSTR szName){
HANDLE hMutex = CreateMutex(NULL, TRUE, szName);
if(GetLastError()==ERROR_ALREADY_EXISTS){
CloseHandle(hMutex);
return FALSE;
}
return TRUE;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *Reg = new TRegistry;
Reg->RootKey = HKEY_CURRENT_USER;
ofstream fout("Adm.ini",ios::out);
char cStr[1024];
Reg->OpenKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run",true);

if(CheckBox1->Checked){
fout << "1" << endl;
Reg->WriteString("Adm_Net",ParamStr(0));
}
else{
fout << "0" << endl;
Reg->DeleteValue("Adm_Net");
}
if(CheckBox2->Checked){
fout << "1" << endl;
}
else{
fout << "0" << endl;
}

Reg->CloseKey();
delete Reg;
}
//---------------------------------------------------------------------------