Программа

// Для чтобы программа не запускалась второй раз надо модифицировать проектный файл (в данном примере это Project1.cpp):

#include &ltvcl.h&gt

#pragma hdrstop

USERES("Project1.res");

USEFORM("Unit1.cpp", Form1);

const char *NamedMutex= "OneOnly";

HANDLE CheckInstance(const char *Name)

{

HANDLE Mutex = CreateMutex(NULL, true,Name);

int er = GetLastError();

if (er) return 0;

return Mutex;

}

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

HANDLE Mutex = CheckInstance(NamedMutex);

if (!Mutex)

{

ShowMessage("Уже работает");

ReleaseMutex(Mutex);

return 1;

}

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}

// Для чтобы программа не запускалась второй раз напишите следующий код:

BOOL WeAreAlone(LPSTR szName)

{

HANDLE hMutex=CreateMutex(NULL,TRUE,szName);

if (GetLastError()==ERROR_ALREADY_EXISTS)

  {

  CloseHandle(hMutex);

  return false;

  }

return true;

}

//В CreatForm пишишь проверку:

if (WeAreAlone("Some_Unique_Name_Or_Other"));

  else

  {

  ShowMessage("Такая программа уже работает!");

  exit(0);

  }

Автор:

// Чтобы узнать каталог напишите следющий код:

void __fastcall TForm1::Button4Click(TObject *Sender)

{

Label1->Caption = Application->ExeName;

Label2->Caption = ParamStr(0);

Label3->Caption = GetCurrentDir();// текущая папка (может измениться!)

char ExeName[MAX_PATH];

GetModuleFileName(HInstance, ExeName, sizeof(ExeName));

Label4->Caption=ExeName;

}