Discussion :

[Jon Shannow]

Bonjour à toutes et tous,

Pour mon PC Perso, j'envisage sérieusement de quitter le monde de Windows (la politique de Microsoft rend Windows 11 "imbouffable") et de me diriger vers Linux.

Pour tenter le coup, j'ai récupéré un portable sur lequel j'ai installé Mint Cinnamon.

J'ai installé les paquets Lazarus (depuis le site, et non ceux de la distri) et copier un de mes projets.

Le problème qui va se poser à moi, sont les procédures propres à Windows.
J'ai en effet une unité qui comporte un certain nombre d'appel à des procédures comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Function FGet_CheminSpeciaux( inp_IdChemin : Integer) : String;

qui en fonction de l'ID passée renvoie le chemin complet de "Documents"; "Images"; "Vidéos"; etc...
J'ai défini les constantes suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  kRepBureau    : Integer = CSIDL_DESKTOP;
  kRepDocuments	: Integer = CSIDL_PERSONAL;
  kRepImages		: Integer = CSIDL_MYPICTURES;
  kRepMusique   : Integer = CSIDL_MYMUSIC;
  kRepVideo     : Integer = CSIDL_MYVIDEO;
  kRepAppData   : Integer = CSIDL_APPDATA;

La fonction en elle-même est définie ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Function Fget_cheminspeciaux(Inp_idchemin : Integer) : String;
Begin
	SetLength( Result, MAX_PATH);
	SHGetSpecialFolderPath(0,PChar(Result),Inp_idchemin,Longbool(False));
	Result := Trim(Result);
End;

L'idée est que le programme fonctionne toujours sous Windows, mais puisse aussi fonctionner sous Linux.

Je suppose que je dois passer par des {$IFDEF}, mais j'avoue ne pas trop connaitre les directives de compilation.

De plus, je n'ai aucune idée de comment coder cette fonction pour quelle fonctionne sous Linux de la même manière que sous Windows.

Si quelqu'un à des conseils, des idées, les deux, merci d'avance.

JS

[acaumes]

Bonjour,

Il me semble qu'il y a tout ce qu'il faut dans SYSUTIL

Voici un projet qui liste quelques dossier (à toi de regarder l'aide...)

TestDossiers.zip


Cordialement

[Jon Shannow]

Bonjour,

Il me semble qu'il y a tout ce qu'il faut dans SYSUTIL

Bonjour,
et merci de t'être penché sur mon questionnement. Toutefois, je pense que tu n'as pas compris, ou compris à l'envers. Je pars de Windows pour aller vers Linux.

Dans l'unité SYSUTIL, on commence par un "Uses Windows". Ce qui ne m'intéresse pas, puisque le but est justement de trouver une alternative à Windows.

JS

[alanglet]

Bonjour,

Dans l'unité SYSUTIL, on commence par un "Uses Windows". Ce qui ne m'intéresse pas, puisque le but est justement de trouver une alternative à Windows.
JS

Dans Lazarus sous Linux, sysutils.pp est différent et contient:
{$IFDEF LINUX}linux,{$ENDIF}
Sous Linux on peut utiliser les variables d'environnement, par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
{$IFDEF WINDOWS}
PathDocuments:=GetWindowsSpecialDir(CSIDL_PERSONAL,False);
{$ELSE}
PathDocuments:=GetEnvironmentVariableUTF8('HOME')+'/Documents/';
{$ENDIF}

André

[acaumes]

Bonjour (re)

Je suppose que je dois passer par des {$IFDEF}, mais j'avoue ne pas trop connaitre les directives de compilation.

Je crois que cette discussion (même si en anglais) pourrait aider...

Cordialement

[Jon Shannow]

Bonjour,

Merci pour vos réponses, je regarde ça dés que je peux.

JS

[der§en]

Tu devrais plus t’appuyer sur les LIBS fourni avec FPC et Lazarus qui encapsule le plus possibles les api adaptées (en interne) aux différentes plateformes, plutôt que d’appeler directement les mêmes api d’une plateforme spécifique…