Linux下使用Lazarus创建快捷方式

最新推荐文章于 2023-06-05 23:20:35 发布

原创最新推荐文章于 2023-06-05 23:20:35 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#linux #encoding #terminal #application #string #c

Lazarus 专栏收录该内容

8 篇文章

订阅专栏

本文介绍了一种在Linux环境下通过编程方式创建桌面应用程序快捷方式的方法。该方法使用Delphi和C语言结合实现，包括设置快捷方式的各项属性如图标路径、执行命令等，并通过C语言编写的函数修改文件权限。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TFormClientAgent.ActAppCreateLinkExecute(Sender: TObject);
var
  vFileName: string;
  iniFile: TIniFile;
begin
  try
    vFileName := GetDeskTopDir + '/AR.desktop';
    IniFile := TIniFile.Create(vFileName);
    try
      iniFile.WriteString('Desktop Entry', 'Encoding', 'UTF-8');
      iniFile.WriteString('Desktop Entry', 'Name', 'AR For Linux');
      iniFile.WriteString('Desktop Entry', 'Comment', 'AR For Linux');
      iniFile.WriteString('Desktop Entry', 'Exec', Format('"%s"', [ParamStr(0)]));
      iniFile.WriteString('Desktop Entry', 'Type', 'Application');
      iniFile.WriteString('Desktop Entry', 'GenericName', 'AR For Linux');
      iniFile.WriteString('Desktop Entry', 'Terminal', 'false');
      iniFile.WriteString('Desktop Entry', 'Icon', ExtractFilePath(ParamStr(0)) + '/ar.png');
    finally
      IniFile.Free;
    end;
    ModifyFileAttribute(GetDeskTopDir + '/AR.desktop');
  except
  end;
end;

生成的文件位置为桌面, 名称为: AR.desktop, 内容为:

[Desktop Entry]
Encoding=UTF-8
Name=AR For Linux
Comment=AR For Linux
Exec="/mnt/hgfs/FPC/Bin/AR For Linux"
Type=Application
GenericName=AR For Linux
Terminal=false
Icon=/mnt/hgfs/FPC/Bin//ar.png

ModifyFileAttribute(GetDeskTopDir + '/AR.desktop');

这句话是更改文件的属性, 具体代码如下: (C写的SO文件, Lazarus调用)

#include <sys/stat.h>

extern int ModifyFileAttribute(char *aFile)
{
    char mode[] = "0777";
//    char buf[100] = "/home/anonym/Desktop/AR.desktop";
    int i;
    i = strtol(mode, 0, 8);
    if (chmod (aFile,i) < 0)
    {
        return -1;
    }
    return 0;
}