Скачать: CL | DM;

Возврат значения при закрытии программы во внешнюю программу   Найти похожие ветки 

← →
АЮН ©   (2007-02-15 13:22) [0]

У меня есть тестирующая программа (написана не мной), которая имеет возможность вызывать нестандартные вопросы в виде вызова готовых exe-шников. По завершении работы этот exe-шник должен передать вызывающей программе число о 0 до 100 как результат ответа на этот вопрос.

Авторы программы написали как это делается в С++:


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

#include <vcl.h>
#pragma hdrstop
USERES("ExternControl.res");
USEFORM("uExtern.cpp", FMain);
//---------------------------------------------------------------------------
extern int ResultValue;
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
       try
       {
                Application->Initialize();
                Application->CreateForm(__classid(TFMain), &FMain);
                Application->Run();
       }
       catch (Exception &exception)
       {
                Application->ShowException(&exception);
       }
       return ResultValue;
}
//---------------------------------------------------------------------------


и

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

#include <vcl.h>
#pragma hdrstop

#include "uExtern.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFMain *FMain;
int ResultValue;
//---------------------------------------------------------------------------
__fastcall TFMain::TFMain(TComponent* Owner)
       : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFMain::btnOkClick(TObject *Sender)
{
 ResultValue = StrToIntDef(eResult->Text, 0);
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TFMain::FormActivate(TObject *Sender)
{
 ActiveControl = eResult;
}
//---------------------------------------------------------------------------


Помогите перевести на Дельфи.

---

← →
MBo ©   (2007-02-15 13:31) [1]

ExitCode присвой нужное значение

---

← →
АЮН ©   (2007-02-15 14:40) [2]

спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c