tinystory

void __fastcall AdjustBounds(TCustomForm *AForm)

{

    TRect rtForm = AForm->BoundsRect;

    for (int i = 0; i < Screen->MonitorCount; i++)

        if (PtInRect(Screen->Monitors[i]->BoundsRect, TPoint(rtForm.Left, rtForm.Top)))

            return;

    AForm->SetBounds(rtForm.Left + Screen->DesktopRect.Left - rtForm.Left, // or 0,

        rtForm.Top + Screen->DesktopRect.Top - rtForm.Top, // or 0,

        AForm->BoundsRect.Width(),

        AForm->BoundsRect.Height());

}

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

#define DECLARE_RETAIN(CLASSNAME) \

private: \

    static size_t CLASSNAME ## __RETAINEDCLASS_CLASSSIZE__; \

    static unsigned int* __fastcall CLASSNAME ## __RETAINEDCLASS_RETAINCOUNTVARABLEPOINTER(void *rawMemory) { \

        return (CLASSNAME::CLASSNAME ## __RETAINEDCLASS_CLASSSIZE__ > 0? (unsigned int *)(((char*)rawMemory) + CLASSNAME::CLASSNAME ## __RETAINEDCLASS_CLASSSIZE__): 0); \

    } \

    unsigned int __fastcall CLASSNAME ## __GET_RETAIN_COUNT__(void) { \

        return *CLASSNAME::CLASSNAME ## __RETAINEDCLASS_RETAINCOUNTVARABLEPOINTER(this); \

    } \

public: \

    static void* operator new(size_t size) { \

        return ((CLASSNAME *)malloc((CLASSNAME::CLASSNAME ## __RETAINEDCLASS_CLASSSIZE__ = size) + sizeof(unsigned int)))->retain(); \

    } \

    static void operator delete(void *rawMemory) { \

        unsigned int *retainCount = CLASSNAME::CLASSNAME ## __RETAINEDCLASS_RETAINCOUNTVARABLEPOINTER(rawMemory); \

        if (*retainCount > 0 && !(--(*retainCount))) free(rawMemory); \

    } \

    __property unsigned int retainCount = {read = TRetainedClass__GET_RETAIN_COUNT__}; \

    CLASSNAME* __fastcall retain(void) { \

        (*CLASSNAME::CLASSNAME ## __RETAINEDCLASS_RETAINCOUNTVARABLEPOINTER(this))++; \

        return this; \

    }

#define USE_RETAIN(CLASSNAME) size_t CLASSNAME::CLASSNAME ## __RETAINEDCLASS_CLASSSIZE__ = 0;

#define PREVENT_DESTRUCTOR_MULTICALL if (retainCount != 1) return;

class TRetainedClass

{

    DECLARE_RETAIN(TRetainedClass);

public:

    __fastcall ~TRetainedClass(void)

    {   PREVENT_DESTRUCTOR_MULTICALL

        ShowMessage("dealloc");

    }

};

USE_RETAIN(TRetainedClass);

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

    TRetainedClass *test = new TRetainedClass;

    ShowMessage(test->retainCount);

    test->retain();

    ShowMessage(test->retainCount);

    delete test;

    ShowMessage(test->retainCount);

    delete test;

}

//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

#include <TlHelp32.h>

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Log(const String &AValue)

{

    Memo1->Lines->Add(AValue);

}

//---------------------------------------------------------------------------

int __fastcall ExecAndWait(const String &ACommand)

{

    TStartupInfo si = {0};

    si.cb = sizeof(si);

    si.dwFlags = STARTF_USESHOWWINDOW;

    si.wShowWindow = SW_SHOW;

    TProcessInformation pi;

    if (::CreateProcess(NULL, ACommand.c_str(), NULL, NULL, FALSE, CREATE_SUSPENDED | IDLE_PRIORITY_CLASS, NULL, 0, &si, &pi))

    {

        ::SetThreadPriority(pi.hThread, THREAD_PRIORITY_IDLE);

        ::SetThreadPriority(::GetCurrentThread(), THREAD_PRIORITY_TIME_CRITICAL);

        ::SetPriorityClass(::GetCurrentProcess(), HIGH_PRIORITY_CLASS);

        ::CloseHandle(pi.hProcess);

        ::ResumeThread(pi.hThread);

        ::CloseHandle(pi.hThread);

        bool bFound = true;

        PROCESSENTRY32 PE32;

        HANDLE hSnapShot;

        while (bFound == true)

        {

            Sleep(1);

            Application->ProcessMessages();

            bFound = false;

            hSnapShot = ::CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

            if (hSnapShot != HANDLE(-1))

            {

                try

                {

                    PE32.dwSize = sizeof(PROCESSENTRY32);

                    if (::Process32First(hSnapShot, &PE32) == true)

                        do

                        {

                            if (PE32.th32ProcessID == pi.dwProcessId)

                            {

                                bFound = true;

                                break;

                            }

                        } while (::Process32Next(hSnapShot, &PE32) == true);

                }

                __finally

                {

                    ::CloseHandle(hSnapShot);

                }

            }

        }

    }

    else

        return 0;

    return 1;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    if (ExecAndWait("NotePad.exe") == false)

        ShowMessage("CreateProcess 실패");

    ShowMessage("완료");

}

//---------------------------------------------------------------------------