?? flashp~1.dpr
字號:
program Project1;
uses
Windows,
SysUtils,
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
var
s:string;
begin
s:=extractfilepath(application.ExeName)+'FlashPlay.ini';
if FileExists(s)=false then
begin
messagebox(0,'找不到程序運行所需的ini文件!','運行',0);
halt;
end;
Application.Initialize;
Application.Title := 'FlashPlayer';
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -