How to program a small delphi application?

I am not sure what to post here for you, you seem to talk about the console application, and you say you do not want any GUI? ? You also say you used a console and then asked

" In console application , I want to hold my application for several minutes, not terminated as it run to the last code. how to do i"

consoles were not meant to last beyond the final text read or write. . . .

anyway, here is some code you might can look at, but you may not be able to use it (you may not know what it is doing)


first code for your  .DPR   program file - -


program Conect;

uses
  MakeConect;

begin
if Startup then
  RunMsgLoop;
end.



 = = = = = = = = = =  = = = =  = = =

next id the code for the MakeConect  Unit - -




unit MakeConect;

interface

function StartUp: Boolean;

procedure RunMsgLoop;

implementation

uses Windows, Messages;

type
{if you need to Assign Object Events like OnClick, OnReceive, then
you will need to Have a TObject with the Event Methods in it,
like this TOzObject}
  TOzObject = Class(TObject)
  private
  fCon: Boolean;
  public
  //procedure OnSocketEvent(Sender: TObject; Socket: TCustomWinSocket;
  //                SocketEvent: TSocketEvent);
  procedure OnConect(Sender: TObject);
  {this OnConect and OnRecieve are like the TNotifyEvent with a
  (Sender: TObject)}
  procedure OnRecieve(Sender: TObject);
  Constructor Create;
  end;



var
hNoSee: Integer = 0;
Oz1: TOzObject;
Int1: Integer = 0;


{define your TOzObject below}
constructor TOzObject.Create;
begin
fCon := False;
Inc(Int1);
end;

procedure TOzObject.OnConect(Sender: TObject);
begin
fCon := True;
Inc(Int1);
end;

procedure TOzObject.OnRecieve(Sender: TObject);
begin
fCon := True;
Dec(Int1);
end;

{procedure TOzObject.OnSocketEvent(Sender: TObject; Socket: TCustomWinSocket;
                  SocketEvent: TSocketEvent);
begin
fCon := True;
end;}

// below is the windows WindowProc
function MessageFunc(hWnd,Msg,wParam,lParam:Integer):Integer; stdcall;
begin
case Msg of
  WM_TIMER: if WParam = 1 then
    begin
    KillTimer(hWnd, 1);
    if MessageBox(0, 'Do You Want To End this Conect Program Now ? ?',
               '? ? Exit Program ?', MB_YESNO or MB_ICONQUESTION) = ID_YES then
      PostMessage(hWnd, WM_CLOSE, 0, 0)
      else
      SetTimer(hNoSee, 1, 10000, nil);
    end;
  WM_DESTROY: PostQuitMessage(0);
  end;
Result := DefWindowProc(hWnd,Msg,wParam,lParam);
end;



function StartUp: Boolean;
var
WndClass: TWndClass;
begin
Result := False;
ZeroMemory(@WndClass, SizeOf(WndClass));
WndClass.lpfnWndProc := @MessageFunc;
WndClass.lpszClassName := 'Conect  Class';
WndClass.hInstance := hInstance;

if RegisterClass(WndClass) = 0 then Exit;

hNoSee := CreateWindowEx(WS_EX_TOOLWINDOW, WndClass.lpszClassName,
    'Conect', WS_POPUP, 0, 0, 0, 0, 0, 0, hInstance, nil);
if hNoSee = 0 then
  begin
  MessageBox(0, 'ERROR = Unable to Start this Conect Program', 'NO GO !', MB_ICONERROR);
  Exit
  end else
  Result := True;

{This Timer is not neccesary, but it is the only way to end this program,
since there is NO USER INPUT}
SetTimer(hNoSee, 1, 10000, nil);

Oz1 := TOzObject.Create;
//boSocket1 := TboScocket.Create;
//Oz1.OnRecieve := boSocket1.OnRecieve;
end;

procedure RunMsgLoop;
var
MainMsg: TMSG;
begin
{this RunMsgLoop procedure will run the GetMessage Loop to keep
this program running.}

while GetMessage(MainMsg,0,0,0) do
  begin
  TranslateMessage(MainMsg);
  DispatchMessage(MainMsg);
  end;
end;

initialization

finalization
if Oz1 <> nil then
  Oz1.Free;

end.


= = = = = = = = = = = = = = = = = = = = = =

this will make an invisible window and get youe program in the windows Message queue, this will creat an Object  TOzObject  so you can get Events for your  onReceive  or whatever socket events

there is a Timer in this so you can End the program

ask questions if you neeed more