### **1. 多窗口切換** * [ ] 非模式窗體 Form1.Show; * [ ] 模式窗本 Form1.ShowModal; * [ ] 關閉窗體 Form1.Close; ### **2. 退程序** * [ ] MainActivity.finsh; * [ ] Application.MainForm.DisposeOf;//(最小化) * [ ] Application.Terminate * [ ] Close; * [ ] var Intent: JIntent; begin Intent := TJIntent.JavaClass.init(TJIntent.JavaCla Intent.addCategory(TJIntent.JavaClass.CATEGO Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVI_ SharedActivityContext.startActivity(Intent); end ### **3.自定義程序名稱、圖標、全屏和可旋轉方向** ① 自定義程序名稱 Project->Options->Version Info->label(改成需要顯示的中文名即可） ，但是需要安裝到安卓手機才可以 顯示。 ② 全屏顯示 Project->Options->Version Info->theme(TitleBar、No TitleBar) ，我是沒有感覺出這二個選項有什么不同。 ③ 自定義圖標 用平面程序，做好 5 個圖片，大小分別為 36、48、72、96、144。放在工程的同目錄下面。 Project->Options->Application->Atrwork 中分別選擇你的 5 個圖片。 PS:圖片必須是 PNG 的，要不然一會你無法編譯別說我沒提醒。 ④ 自定義程序允許旋轉的方向 Project->Options->Application->Orientation->Enable custom orientation 打上對號，下面分別為，樹立、倒 立、左轉、右轉。 ### 4.**路徑信息及文件和文件夾的操作** * [ ] 通過TPath類獲得路徑，如 TPath.GetTempFileName; TPath.GetTempPath; TPath.GetHomePath; TPath.GetDocumentsPath; TPath.GetSharedDocumentsPath; TPath.GetLibraryPath; TPath.GetCachePath; * [ ] 文件夾是否存在 if TFile.Exists(TPath.GetTempFileName) then * [ ] 新建目錄 TDirectory.CreateDirectory(TPath.GetTempPath + 'NewDirectory'); * [ ] 復制文件 TFile.Copy(sFile1, sFile2 * [ ] 刪除文件 var Files: TStringDynArray; I: Integer; begin if TDirectory.Exists(TPath.GetTempPath + '/temp/') then begin Files := TDirectory.GetFiles(TPath.GetTempPath + '/temp/'); for I := 0 to high(Files) do begin TFile.Delete(Files[I]); end; end; end; ### **5.閃光燈的控制** procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Text = '開' then begin CameraComponent1.TorchMode := TTorchMode.tmModeOn;//開燈 Button1.Text := '關'; end else begin CameraComponent1.TorchMode := TTorchMode.tmModeOff;//關燈 Button1.Text := '開'; end; end; procedure TForm1.FormCreate(Sender: TObject); begin Button1.Enabled := CameraComponent1.HasFlash;//如果沒有閃光燈，則按鈕不起作用 CameraComponent1.Active := True; end;