Windows' apps dir

procedure TForm1.Button4Click(Sender: TObject);

var
  ssize: UINT;
  winDir: string;
begin
  ssize := GetWindowsDirectory(nil, 0);
  if ssize > 0 then begin
    SetLength(winDir, ssize);
    GetWindowsDirectory(PChar(winDir), ssize);
    Label1.Caption := winDir;
  end;


end;

Stoney

Det skulle være apps diret og ikke windows diret.

ups sorry

uses shlobj


procedure TForm1.Button1Click(Sender: TObject);
var
  pidl: PItemIDList;
  Path: array[0..MAX_PATH] of char;
begin

  SHGetSpecialFolderLocation(Handle,  CSIDL_PROGRAMS, pidl);
  SHGetPathFromIDList(pidl,path);
  ShowMessage(path);
end;

Stoney

stoney: Det er da heller ikke den du skriver i andet forsøg. Der får du jo bare hvor genvejene i ens Start menu ligger (f.eks. C:\Documents and Settings\<bruger>\Start Menu\Programs) og ikke f.eks. C:\Program files !

Snowball

Om ikke andet, så kan du i hvert fald læses den i RegDB'en i HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion og så nøglen ProgramFilesDir !

Men det ville da ikke undre mig hvis der er en lettere måde i stil med det Stoney har skrevet ;)

Snowball

Yeah. Den virker heller ikke;)
Men stoney, 3. gang er lykkens gang, hehe

snowball, ahh, det kunne man jo gøre. Ville mok være smartest.

På min W2K skriver den stien

Måske CSIDL_PROGRAMS skal erstattes med  CSIDL_COMMON_PROGRAMS

Stoney

Giver ikke det rigtige resultat, heller

stoney: Det gør den ikke på min Win2k ! Og sætter du COMMON ind får du bare C:\Documents and Settings\All Users\Start Menu\Programs i stedet for den brugerspecifikke !

Snowball

Det må være for tidligt på dagen for mig. I har ret.

Function GetProgramFilesDir : string;
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', false);
    result := reg.ReadString('ProgramFilesDir');
  finally
    reg.free;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 
  ShowMessage(GetProgramFilesDir);
end;

Stoney

Hmmm. Hvem skal nu have point. Ham der kom med idéen, eller ham der bragte idéen?

Anyways, opret et svar.

Vi kan vel bare dele !? ;)

Snowball

jep :-)

Stoney

done that