| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Возврат значения при закрытии программы во внешнюю программу [D7, Win2k]
АЮН © (2007-02-15 13:22:00)У меня есть тестирующая программа (написана не мной), которая имеет возможность вызывать нестандартные вопросы в виде вызова готовых exe-шников. По завершении работы этот exe-шник должен передать вызывающей программе число о 0 до 100 как результат ответа на этот вопрос.
Авторы программы написали как это делается в С++:
//---------------------------------------------------------------------------
#include
#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
#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;
}
//---------------------------------------------------------------------------
Помогите перевести на Дельфи.
АЮН (2007-02-15 14:40:00) [1]спасибо
MBo (2007-02-15 13:31:00) [2]ExitCode присвой нужное значение
| |
