Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
Вниз
Что-то вроде TSR Найти похожие ветки
← →
Sinplecy (2003-01-30 15:31) [0]Уважаемые мастера!
Мне нужно создать приложение без форм, которое постоянно висит в памяти и общается по сети с сервером.
Вопрос следующий:
Я создаю Project1, вырезаю из него все формы. Мне даже удается рисовать на рабочем столе... НО. Как только выполнение всего кода завершается приложение заканчивает работу. А мне нужно чтобы оно работало до команды!
Что делать?
Заранее спасибо.
← →
gsu (2003-01-30 15:32) [1]сервис
← →
Digitman (2003-01-30 15:37) [2]
> Мне нужно создать приложение без форм, которое постоянно
> висит в памяти и общается по сети с сервером.
И какие проблемы ? Не создавай форм, никто тебя не заставляет это делать
> Как только выполнение всего кода завершается приложение
> заканчивает работу. А мне нужно чтобы оно работало до команды!
Не завершай код - и всех делов ! Опять же - какие проблемы ?
И о каких "командах" речь идет ? Кто, кому и в какой форме их подает ?
← →
Sinplecy (2003-01-31 13:32) [3]
program Project1;
uses
Windows,
Graphics,
Forms,
Dialogs,
SysUtils,
extctrls;
type TApp = class(TApplication)
Tm: TTimer;
procedure on_tm(Sender: TObject);
procedure BuildWindow(Canvas:TCanvas;Rct:TRect);
private
public
end;
const
margin_right : integer = 20; //
← →
Digitman (2003-01-31 14:10) [4]Не очень понятно, к чему это все ?
Зачем переопределять станд.класс TApplication ?
← →
Quest (2003-01-31 15:46) [5]создаёшь проект my_program.dpr
program my_program;
uses
SysUtils,
windows,
classes,
... ;
BEGIN
while [условие для бесконечного цикла] do Begin
...
End;
End.
← →
ZeroDivide (2003-01-31 15:49) [6]Пишешь в нотпаде .dpr:
program MyPrg;
uses Windows;
begin
...somecode...
end.
Открываешь его в Delphi и
все
а еще проще.. выбрать в нью - консольаппликешен и убрать потом все фигурные скобки
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
