秋·風

 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;