請問Application.run到底做了什麼，是不是很多操作都只能在它之後才能有效？

2005-07-05 03:47:27 161 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【photoshop CEP插件】 OCR文字识别一个photoshop CEP插件OCR文字识别 APP_ID = 17594920 API_KEY = puMFv72xqCYV2jdcSlXgtFvm SECRET_KEY = v5XHtqKXEm0p6ehPZrXIXrftDvocyv1m /*********************************************/ 百度OCR 密钥由Greless@qq.com 提供，用户可自行前往https://ai.baidu.com/docs#/Auth/top 申请。通用文字识别.. 阅读详情

我在Application.run之前執行applicaton.terminater時，明顯得發現它不是馬上退出，而是等applicaton.run前面所有的初始化語句全部執行完了後，才退出，請問application.run到底起了什麼作用？

...全文

解决UE5像素流三大痛点：鼠标锁定/双光标/自动播放（附app.js魔改指南）本文针对UE5像素流服务在实际应用中常见的鼠标锁定、双光标和自动播放三大交互痛点，提供了深入的技术分析和解决方案。通过详细解析app.js源码，指导开发者如何修改控制方案、修复光标显示以及实现静音自动播放，旨在提升Pixel Streaming应用的用户体验与专业度。阅读详情

jmchen

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

paranoia190 2005-07-06

打赏
举报

我顶！

jerrie_1 2005-07-06

打赏
举报

看了你们的解释，才知道自己真的错了
多谢指教！

chijingde 2005-07-05

打赏
举报

在运行application.run之前，系统只是在检查语法错误等等之类。

错！

jerrie_1 2005-07-05

打赏
举报

你在调试的时候，有没有注意到，到工程文件还没有运行到application.run时，系统所有的为inaccessible value，但运行application.run后，系统才正式运行。在这里我认为在运行application.run之前，系统只是在检查语法错误等等之类。

糖醋鼻子 2005-07-05

打赏
举报

它执行后，程序进入消息循环，run才是一个程序生命周期的开始
李维的《Inside VCL》讲的很详细

chijingde 2005-07-05

打赏
举报

看VCL代码阿

procedure TApplication.Terminate;
begin
if CallTerminateProcs then PostQuitMessage(0);
end;

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;

function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
Handled: Boolean;
begin
Result := False;
if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
begin
Result := True;
if Msg.Message <> WM_QUIT then
begin
Handled := False;
if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end
else
FTerminate := True;
end;
end;

调用Terminate，会发送一个WM_QUIT消息，而ProcessMessage会在受到WM_QUIT后将FTerminate 设成True,从而结束Run的循环

Run的作用主要就是这句HandleMessage

procedure TApplication.HandleMessage;
var
Msg: TMsg;
begin
if not ProcessMessage(Msg) then Idle(Msg);
end;

可以这样一直看下去

归根结底一句话

把VCL要处理的消息交给VCL处理，把系统要操作的消息交给操作系统处理，把用户的消息交给用户处理

wuluhua2003 2005-07-05

打赏
举报

我也想弄清楚,帮你顶,大侠们来看看啊

lovend 2005-07-05

打赏
举报

大概是运行初始化之类的，没去研究，帮你顶

請問Application.run到底做了什麼，是不是很多操作都只能在它之後才能有效？

相关推荐