//環境変数とその値をリスト
set

//環境変数PATHEXTの一覧(省略可能な拡張子の一覧)
set pathext

//環境変数PATHの一覧(パス名の一覧)
set path

//環境変数PATHにパスを追加
setx /M path "%path%;D:\000"

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure FormShow(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses  
  ShellAPI, 
  StrUtils;

{$R *.dfm}

//=============================================================================
//  現在のユーザの環境変数のリストをリストボックスにリストする
//  SETコマンドを実行してリストを一度ファイルに保存している
//  このSETコマンドでは，環境変数とそのフルパスが取得できるが，ここでは，テスト
//  のため，環境変数だけを取出し，プログラムコード内で使用する形式(左右の端に%
//  を付加したもの)を表示する
//=============================================================================
procedure TForm1.FormShow(Sender: TObject);
var                    
  LShellInfo   : TShellExecuteInfo;
  LBatFullPath : String;
  LOutFullPath : String;
  LStrList     : TStringList;
  LEnvString   : String;
  LiPos        : Integer;
  i            : Integer;
begin
  LStrList := TStringList.Create;

  LBatFullPath := ExtractFilePath(Application.ExeName) + 'EnvDirList.BAT';
  LOutFullPath := ExtractFilePath(Application.ExeName) + 'EnvDirList.TXT';
  DeleteFile(LOutFullPath);

  //バッチファイルを作成してこのアプリのフォルダに保存
  try
    LStrList.Add('SET>' + LOutFullPath);
    LStrList.Add('DEL %0');
    LStrList.Add('EXIT');
    LStrList.SaveToFile(LBatFullPath);
  finally
    FreeAndNil(LStrList);
  end;

  //バッチファイルを実行
  //SEE_MASK_NOCLOSEPROCESSがないと終了待ちはできない
  with LShellInfo do begin
    cbSize       := Sizeof(LShellInfo);
    fMask        := SEE_MASK_NOCLOSEPROCESS;
    Wnd          := Application.Handle;
    lpVerb       := 'open';
    lpFile       := PChar(LBatFullPath);
    lpParameters := nil;
    lpDirectory  := nil;
    nShow        := SW_HIDE;
  end;
  ShellExecuteEx(@LShellInfo);
  //バッチファイルの実行終了を(ファイルが出来るまで)待つ
  while WaitForSingleObject(LShellInfo.hProcess, 0) = WAIT_TIMEOUT do begin
    Application.ProcessMessages;
    Sleep(100);
  end;

  //リストボックスに環境変数のみを取出して両端に%を付加
  ListBox1.Items.Clear;
  LStrList := TStringList.Create;
  try
    LStrList.LoadFromFile(LOutFullPath);
    for i := 0 to LStrList.Count - 1 do begin
      LEnvString := LStrList[i];
      LiPos      := Pos('=', LEnvString);
      LEnvString := StrUtils.AnsiLeftStr(Trim(LEnvString), LiPos - 1);
      ListBox1.Items.Add(SysUtils.AnsiQuotedStr(LEnvString, '%'));
    end;
  finally
    LStrList.Free;
  end;
end;

//=============================================================================
//  リストボックスで選択した環境変数のフルパスをEdit1に表示
//  GetEnvironmentVariable関数を使用
//=============================================================================
procedure TForm1.ListBox1Click(Sender: TObject);
var
  LListItem : string;
  LPathStr  : string;
begin
  if ListBox1.ItemIndex >= 0 then begin
    LListItem  := ListBox1.Items[ListBox1.ItemIndex];

    //文字列中の%を取除く
    LPathStr   := StringReplace(LListItem, '%', '', [rfReplaceAll]);
    Edit1.Text := GetEnvironmentVariable(LPathStr);
  end else begin
    Edit1.Text := '';
  end;
end;

end.

//=============================================================================
//  リストボックスで選択した環境変数のフルパスをEdit1に表示
//  ExpandEnvironmentStrings関数を使用
//  対象の環境変数は%で囲まれた文字列である必要がある
//=============================================================================
procedure TForm1.ListBox1Click(Sender: TObject);
var
  LEnvText : String;
  LEnvPath : String;
  LLen     : DWORD;
begin
  if ListBox1.ItemIndex >= 0 then begin
    LEnvText := ListBox1.Items[ListBox1.ItemIndex];

    LLen := ExpandEnvironmentStrings(PChar(LEnvText), nil, 0);
    if LLen > 0 then begin
      SetLength(LEnvPath, LLen);
　　  ExpandEnvironmentStrings(PChar(LEnvText), PChar(LEnvPath), LLen);
      // Trim しないと Null 終端文字が含まれたままとなる
      Edit1.Text := Trim(LEnvPath);
    end;
  end else begin
    Edit1.Text := '';
  end;
end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  StrUtils;

{$R *.DFM}

//=============================================================================
//  環境変数%PATH%のパスのリスト
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LEnvStr   : string;
  LPathList : TStringList;
begin
  LEnvStr   := 'PATH';
  LPathList := TStringList.Create;
  try
    LPathList.Sorted := True;

    //デリミタの設定
    LPathList.Delimiter       := ';';
    LPathList.StrictDelimiter := True;
    //環境変数のパスをセット
    LPathList.DelimitedText := GetEnvironmentVariable(LEnvStr);

    Memo1.Lines := LPathList;
    Label1.Caption := IntToStr(LPathList.Count);
  finally
    FreeAndNil(LPathList);
  end;
end;

end.

//=============================================================================
//  環境変数%PATHEXT%のリスト
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LEnvStr   : string;
  LPathList : TStringList;
begin
  LEnvStr   := 'PATHEXT';
  LPathList := TStringList.Create;
  try
    //デリミタの設定
    LPathList.Delimiter       := ';';
    LPathList.StrictDelimiter := True;
    //環境変数のパスをセット
    LPathList.DelimitedText   := GetEnvironmentVariable(LEnvStr);

    Memo1.Lines := LPathList;
    Label1.Caption := IntToStr(LPathList.Count);
  finally
    FreeAndNil(LPathList);
  end;
end;

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Label1: TLabel;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

uses
  Registry,
  ShellAPI;

{$R *.DFM}

//=============================================================================
//  レジストリからパスが通っていなくても実行可能なファイルの一覧を取得
//  usesにRegistryが必要
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  LRegistry : TRegistry;
  LRegKey   : string;
  LItemList : TStringList;
  i         : Integer;
begin
  Edit1.Text := '';

  LItemList         := TStringList.Create;
  LRegistry         := TRegistry.Create;
  LRegistry.Access  := KEY_READ;
  LRegistry.RootKey := HKEY_LOCAL_MACHINE;
  try
    LRegKey := 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths';

    //FolderDescriptions階層下のキー名(GUID)を列挙
    if LRegistry.OpenKey(LRegKey, False) then begin
      LRegistry.GetKeyNames(LItemList);
    end;
    LRegistry.CloseKey;

    ListBox1.Sorted := True;
    ListBox1.Items.Clear;
    ListBox1.Items.BeginUpdate;
    for i := 0 to LItemList.Count - 1 do begin
      if LowerCase(ExtractFileExt(LItemList[i])) = '.exe' then begin
        if LRegistry.OpenKey(LRegKey + PathDelim + LItemList[i], False) then begin
          if LRegistry.ReadString('') <> '' then begin
            ListBox1.Items.Add(LItemList[i]);
          end;
          LRegistry.CloseKey;
        end;
      end;
    end;
    ListBox1.Items.EndUpdate;
    Label1.Caption := IntToStr(ListBox1.Items.Count);
  finally
    FreeAndNil(LRegistry);
    FreeAndNil(LItemList);
  end;
end;

//=============================================================================
//  ListBox1のOnDblClickイベント処理
//  TListBoxの選択中のEXEを実行
//
//  usesにShellAPIが必要
//=============================================================================
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  LShellCmd : string;
  LRetCode  : Cardinal;
begin
  if ListBox1.ItemIndex < 0 then exit;

  if Edit1.Text <> '' then begin
    LShellCmd := ListBox1.Items[ListBox1.ItemIndex];
    LRetCode := ShellExecute(Handle, '', PChar(LShellCmd), nil, nil, SW_SHOW);

    if LRetCode <=32 then begin
      MessageBox(Handle, PChar(SysErrorMessage(LRetCode)), '情報', MB_OK);
    end;
  end;
end;


//-----------------------------------------------------------------------------
//  短いパス名を長いパス名に変換
//-----------------------------------------------------------------------------
function ChangeShortToLongPath(ShortName: String): String;
var
  Buff : array[0..MAX_PATH-1] of Char;
begin
  if (GetLongPathName(PChar(ShortName), Buff, Length(Buff))) > 0 then begin
    Result := Buff;
  end else begin
    Result := ShortName;
  end;
end;

//=============================================================================
//  ListBox1のOnClickイベント処理
//  選択中のApps PathsキーのEXEファイルのフルパスを取得してEdit1に表示
//
//  usesにRegistryが必要
//=============================================================================
procedure TForm1.ListBox1Click(Sender: TObject);
var
  LRegistry : TRegistry;
  LRegKey   : string;
  LRegItem  : string;
begin
  Edit1.Text := '';
  if ListBox1.ItemIndex < 0 then exit;

  LRegistry         := TRegistry.Create;
  LRegistry.Access  := KEY_READ;
  LRegistry.RootKey := HKEY_LOCAL_MACHINE;
  try
    LRegKey := 'SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths'
             + PathDelim + ListBox1.Items[ListBox1.ItemIndex];

    if LRegistry.OpenKey(LRegKey, False) then begin
      LRegItem := LRegistry.ReadString('');
      if LRegItem <> '' then begin
        Edit1.Text := ChangeShortToLongPath(LRegItem);
      end;
    end;
  finally
    LRegistry.CloseKey;
    FreeAndNil(LRegistry);
  end;
end;

//=============================================================================
//  ListBox1のOnKeyDownイベント処理
//=============================================================================
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ListBox1.ItemIndex < 0 then exit;

  if Key = VK_RETURN then begin
    ListBox1DblClick(nil);
    Key := 0;
  end;
end;

end.