Discussion :

[pegase21]

bonjour,

quand je reprends le code d'Atlantis pour retrouver les rep de windows, j'obtiens le message d'erreur concernant la ligne:
SHGetSpécialFolderLocation(Form.Hanle,Foldr,Sfolder);

form.Handle: identificateur non déclaré; qu'est-ce que je dois faire?

et est-ce que ça marche avec windows XP?

Merci de votre aide, j'comprends pas tout !

voici le code complet:

unit trouve_rep_speciaux_wind;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Shlobj, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function SpecialFolder(Folder: Integer): String;
var SFolder : pItemIDList;
SpecialPath : Array[0..MAX_PATH] Of Char;

begin
SHGetSpecialFolderLocation(Form.Handle, Folder, SFolder);
SHGetPathFromIDList(SFolder, SpecialPath);
Result := StrPas(SpecialPath);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := SpecialFolder(CSIDL_PERSONAL);
end;

end.

[shogoune]

c'est plus lisible
Pour ce qui est de ton probleme si tu as fait un simple copier/coller de la fonction c'est normal que sa ne marche pas car ta form n'as pas forcement le meme nom que la form de la fonction copier.
En clair verifie le nom de ta form..... et fais les modif necessaires si besoin

[shogoune]

C'est aussi valable pour les autres composants bien sur.....

[NoisetteProd]

Sinon, va voir : exemple Michel

[pegase21]

Merci
en fait je ne sais pas à quoi correspond ce Form1.handle

mais ça marche (y compris sous windows XP)

code retouché:

begin
SHGetSpecialFolderLocation(Form1.Handle, Folder, SFolder);
SHGetPathFromIDList(SFolder, SpecialPath);
Result := StrPas(SpecialPath);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.text := SpecialFolder(CSIDL_PERSONAL);
memo1.lines.add(SpecialFolder(CSIDL_desktopdirectory));
memo1.lines.add(SpecialFolder(CSIDL_programs));
memo1.lines.add(SpecialFolder(CSIDL_COMMON_PROGRAMS));
end;


PS comment on indique que le problème est résolu

[Seb]

Salut,

PS comment on indique que le problème est résolu

En éditant ton premier message et en indiquant [Résolu] dans le sujet. Puis tu le reposte.

Please : n'oublies pas non plus les balises Code quand tu posteras du code dans tes prochains messages (c'est plus lisible). Merci.

A+,

Seb.