program instsoftlist;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils, Registry, Classes;
var R:TRegistry;
    F:TextFile;
    st:TStringList;
    i:longint;
    cn:array[0..255] of char;
    size:dword;
begin
  size:=255;
  GetComputerName(@cn,size);

  AssignFile(f,ExtractFilePath(ParamStr(0))+'\'+strpas(cn)+'.txt');
  Rewrite(f);
  writeln(f,'Computer name: '+strpas(cn));
  writeln(f,'Installed software:');
  writeln(f,'__________________________________________________');
  st:=TStringList.Create;
  r:=TRegistry.Create;
  r.RootKey:=HKEY_LOCAL_MACHINE;
  r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false);
  r.GetKeyNames(st);
  for i:=0 to st.Count-1 do
  begin
       r.CloseKey;
       r.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+st[i],false);
       if r.ValueExists('DisplayName') then
       if trim(r.ReadString('DisplayName'))='' then
       writeln(f,st[i])
       else
       writeln(f,r.ReadString('DisplayName'));
  end;
  writeln(f,'__________________________________________________');
  CloseFile(f);
  r.Free;
  st.free;
end.