Lazarus Linux 创建菜单及桌面快捷方式

加上下面的代码后，Lazarus 编译的程序运行时会自动创建菜单及桌面快捷方式，在菜单的快捷方式可直接打开应用（在中标麒麟和树莓派测试使用正常），还解决了每次运行时都会出现下图提示的问题。

 1 {$ifdef LINUX}
 2 uses
 3   process,
 4   BaseUnix;
 5 {$endif LINUX} 
 6 
 7 procedure TClientForm.FormCreate(Sender: TObject);
 8 var
 9 vFileName: string;
12   aDirectory,Output: string;
13   iniFile: TIniFile;
14 begin
15 {$IFDEF UNIX}
16   aDirectory := ConcatPaths([GetUserDir, '.local', 'share', 'applications']);
17   if DirectoryExists(aDirectory) then
18     try
19       if DirectoryExists(aDirectory) then
20       begin
21         vFileName := aDirectory + DirectorySeparator + ExtractFileName('回弹检测.desktop');
22         IniFile := TIniFile.Create(vFileName);
23         try
24           iniFile.WriteString('Desktop Entry', 'Encoding', 'UTF-8');
25           iniFile.WriteString('Desktop Entry', 'Name', '回弹检测');
26           iniFile.WriteString('Desktop Entry', 'Comment', '回弹检测计算软件');
27           iniFile.WriteString('Desktop Entry', 'Exec', Format('"%s"', [ParamStr(0)]));
28           iniFile.WriteString('Desktop Entry', 'Type', 'Application');
29           iniFile.WriteString('Desktop Entry', 'GenericName', '回弹检测');
30           iniFile.WriteString('Desktop Entry', 'Category','工程检测;');
31           iniFile.WriteString('Desktop Entry', 'Categories','工程检测;');
32           iniFile.WriteString('Desktop Entry', 'Terminal', 'false');
33           iniFile.WriteString('Desktop Entry', 'Icon', ExtractFilePath(ParamStr(0)) +'回弹检测.png');
34         finally
35           IniFile.Free;
36         end;
37         FpChmod(vFileName, &755);
38         aDirectory:=ConcatPaths([GetUserDir,'.local','share','applications']);
39         RunCommand('update-desktop-database' ,[aDirectory],Output,[poUsePipes, poStderrToOutPut]{$IF DEFINED(FPC_FULLVERSION) AND (FPC_FULLVERSION >= 30200)},swoHide{$ENDIF});
40         //拷贝"回弹检测.desktop"到桌面，并设置为“可执行”
41         aDirectory:=ConcatPaths([GetUserDir,'桌面']);
42         if not DirectoryExists(aDirectory) then
43            aDirectory:=ConcatPaths([GetUserDir,'Desktop']);
44         FileUtil.CopyFile(vFileName,aDirectory+DirectorySeparator+ExtractFileName(vFileName),[]);
45         FpChmod(aDirectory+DirectorySeparator+ExtractFileName(vFileName), &755);//FpChmod需要在uses添加BaseUnix
46       end;
47     except
48     end;
49 {$ENDIF}  
50 end;