delphi的入口主函数,求助

mynameisking 2004-12-27 09:08:53

C做出来的程序主入口函数是main(),不知道delphi做出的程序的入口函数我怎么去处理(不知道它在那)
,程序一开始就 Application.Initialize;
Application.CreateForm(TForm1, Form1);,

谁知道告诉我一下

...全文

472 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

S.F. 2004-12-28

打赏
举报

过来踩一脚，留个印

mynameisking 2004-12-27

打赏
举报

我想除了工程文件之外，肯定还有一个文件比工程文件还在前面的main()文件

mynameisking 2004-12-27

打赏
举报

...我都无语...

symk0014 2004-12-27

打赏
举报

...无语...

g961681 2004-12-27

打赏
举报

不是，就是dpr工程文件里的Begin...End。

g961681 2004-12-27

打赏
举报

Application.Run

myling 2004-12-27

打赏
举报

web700(*FS*的小狗腿子)

呵呵，恰好看到

又恰好delphi开着

当然快了

myling 2004-12-27

打赏
举报

呵呵

个人也觉得delphi不存在入口函数的概念

只是dpr代码的顺序执行

就是从begin开始的

Blakhawk 2004-12-27

打赏
举报

你这小子学C太多还是怎么回事啊。
工程问题就是入口。

web700 2004-12-27

打赏
举报

myling(AD) 速度好快..

web700 2004-12-27

打赏
举报

procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
end;
finally
FRunning := False;
end;
end;

myling 2004-12-27

打赏
举报

procedure TApplication.Run;
begin
FRunning := True;
try
AddExitProc(DoneApplication);
if FMainForm <> nil then
begin
case CmdShow of
SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized;
SW_SHOWMAXIMIZED: MainForm.WindowState := wsMaximized;
end;
if FShowMainForm then
if FMainForm.FWindowState = wsMinimized then
Minimize else
FMainForm.Visible := True;//============================就是这句啦
repeat
try
HandleMessage;
except
HandleException(Self);
end;
until Terminated;
end;
finally
FRunning := False;
end;
end;

mynameisking 2004-12-27