Portable версия программы

void __fastcall TMain::FormActivate(TObject *Sender)
{
    // ñïèñêè
    if ( !FileExists( "log.txt" ) ) {         //ïðîâåðêà åñëè íå ñóùåñòâóåò ôàéë
        List->Add( "Óòèëèòà Flash Cleaner" );  //çàïèñûâàåòñÿ â ôàéë
        List->SaveToFile( "LOG.txt" );            //ñîçäàåò åãî
    }
    if ( !FileExists( "spisok.txt" ) ) {   //ïðîâåðêà åñëè íå ñóùåñòâóåò ôàéë
        Blacklist->Lines->SaveToFile( "spisok.txt" );    //ñîçäàåò åãî
    }
    if ( !FileExists( "spisok.ini" ) ) {    //ïðîâåðêà åñëè íå ñóùåñòâóåò ôàéë
        Extensions->Lines->SaveToFile( "spisok.ini" );     //ñîçäàåò åãî
    }
    if ( !FileExists( "Cleaner.bat" ) ) {   //ïðîâåðêà åñëè íå ñóùåñòâóåò ôàéë
        Avir->Lines->SaveToFile( "Cleaner.bat" );    //ñîçäàåò åãî
    }
    if ( !FileExists( "data.dat" ) ) {         //ïðîâåðêà åñëè íå ñóùåñòâóåò ôàéë
        List->Add( "Admin=52757E7A7F" );  //çàïèñûâàåòñÿ â ôàéë
        List->SaveToFile( "data.dat" );            //ñîçäàåò åãî
    }
    Blacklist->Lines->LoadFromFile("Spisok.txt");
    Extensions->Lines->LoadFromFile("spisok.ini");
    Avir->Lines->LoadFromFile("Cleaner.bat");     //çàãðóæàåì ôàéë Cleaner.bat
    Log->Lines->LoadFromFile( "LOG.txt" );     //çàãðóæàåì ôàéë log.txt â memo
 
   if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {
//------------------------------------------------------------------------------------------
void __fastcall TMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {
        return;
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption);
    }

if (!DirectoryExists(ExtractFilePath(Application->ExeName)))

    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {  //åñëè îòñóñòâóåò äèðåêòîðèÿ
        return;           //âûõî
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption); //ñîõðàíÿåì çíà÷åíèå â  Ini ôàéë
    }
    Application->Terminate( ); //Âûõîä

   if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {  //åñëè îòñóñòâóåò äèðåêòîðèÿ
    ExtractFileDrive(Application->ExeName)==Edit1->Text;
        return;           //âûõî
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption); //ñîõðàíÿåì çíà÷åíèå â  Ini ôàéë
    }
    Application->Terminate( ); //Âûõîä

void __fastcall TMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {
        return;
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption);
    }
    {
        if ( Settings->CheckBox3->Checked ) {
            Action=caNone; // Ïðåðâàòü êîìàíäó çàêðûòèÿ, äàëåå íîâàÿ êîìàíäà
            Application->ShowMainForm = false;
            ShowWindow(Handle,SW_HIDE); // Ñêðûâàåì ïðîãðàììó
            ShowWindow(Application->Handle,SW_HIDE); // Ñêðûâàåì êíîïêó ñ TaskBar'à
        }
    }
}

void __fastcall TMain::FormClose(TObject *Sender, TCloseAction &Action)
{
 
//Сворачивание программы в трей вместо закрытия если стоит чекбокс
    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {
        return;
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption);
    }
    {
        if ( Settings->CheckBox3->Checked ) {
            Action=caNone; // Ïðåðâàòü êîìàíäó çàêðûòèÿ, äàëåå íîâàÿ êîìàíäà
            Application->ShowMainForm = false;
            ShowWindow(Handle,SW_HIDE); // Ñêðûâàåì ïðîãðàììó
            ShowWindow(Application->Handle,SW_HIDE); // Ñêðûâàåì êíîïêó ñ TaskBar'à
        }
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TMain::FormCloseQuery(TObject *Sender, bool &CanClose)
{ //не знаю зачем
    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {
        return;
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TMain::N16Click(TObject *Sender)
{ //выход с трея
    if (!DirectoryExists(ExtractFilePath(Application->ExeName))) {  //åñëè îòñóñòâóåò äèðåêòîðèÿ
        return;           //âûõî
            Close();
    }
    else {
        Log->Lines->SaveToFile("Log.txt"); // ñîõðàíÿåì â ôàéë Log.txt
        Ini->WriteString("Labels","Label2",Label2->Caption); //ñîõðàíÿåì çíà÷åíèå â  Ini ôàéë
    }
      Close();
    Application->Terminate( ); //Âûõîä
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    if (CheckBox1->Checked==true ) {
        Action=caNone; // Прервать команду закрытия, далее новая команда
        Application->ShowMainForm = false;
        ShowWindow(Handle,SW_HIDE); // Скрываем программу
        ShowWindow(Application->Handle,SW_HIDE); // Скрываем кнопку с TaskBar'а
    }
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if (DirectoryExists(ExtractFilePath(Application->ExeName))) 
       Memo1->Lines->SaveToFile(ExtractFilePath(Application->ExeName)+"Log.txt");
Application->Terminate();
}