Eu desenvolvi uma aplicação no Lazarus na plataforma linux para impressão de relatório, agora preciso ao clicar no arquivo com uma extensão qualquer, ex arquivo.gsa
, abrir o meu aplicativo lazarus no linux. No windows, não foi tão complicado eu utilizei este codigo:
function RegisterLink(Ext, FType, FriendlyName, Cmd: PChar): Boolean;
//
// Tenta associar um tipo de arquivo a um aplicativo
//
// Ext: Extensão a ser registrada.
// FType: Categoria do arquivo
// FriendlyName: Tipo de arquivo
// Cmd: linha de comando para abrí-lo
// RegisterLink('.Bsd','ArqInutil','Arquivo inútil','C:\Windows\Notepad.exe "%1"')
//
var
Key: HKey;
SZEntry: Array[0..255] of Char;
SZSize: LongInt;
begin
Result := True;
if RegOpenKey(HKEY_CLASSES_ROOT,Ext,Key) = ERROR_SUCCESS then
begin
SZSize := SizeOf(SZEntry);
RegQueryValue(Key,'',SZEntry,SZSize);
StrCat(SZEntry,'\Shell\Open\Command');
if RegOpenKey(HKEY_CLASSES_ROOT,SZEntry,Key) = ERROR_SUCCESS then
begin
SZSize := SizeOf(SZEntry);
RegQueryValue(Key,'',SZEntry,SZSize);
if (StrIComp(SZEntry,Cmd) = 0) then // and (MessageDlg('A extensão "'+StrPas(Ext)+ '" já está associada para '+copy(StrPas(SZEntry),1,22)+#13+'Você deseja substituir a associação atual por esta?', mtConfirmation, [mbYes,mbNo],0) <> IDYES) then
begin
Result := False;
Exit;
end;
end;
end;
RegCreateKey(HKEY_CLASSES_ROOT,Ext,Key);
RegSetValue(Key,'',REG_SZ,FType,StrLen(FType));
RegCreateKey(HKEY_CLASSES_ROOT,FType,Key);
RegSetValue(Key,'',REG_SZ,FriendlyName,StrLen(FriendlyName));
StrCat(StrCopy(SZEntry,FType),'\Shell\Open\Command');
RegCreateKey(HKEY_CLASSES_ROOT,SZEntry,Key);
RegSetValue(Key,'',REG_SZ,Cmd,StrLen(Cmd));
end;
então eu passo essas informações para a função:
RegisterLink('.gsa','ArqGestor','Archivos del Informe',pchar(application.exename+' "%1"'))
Agora o problema é como fazer isso em linux?