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

← →
АЮН © (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 присвой нужное значение

спасибо

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