1:
2:
3:
4:
5:
6:

procedure TForm7.Button1Click(Sender: TObject);
var
ini:TIniFile;
begin
ini.WriteBool('PASSWORD','pfad',shelltreeview1.Selected);
end;					

1:
2:
3:
4:
5:
6:

procedure TForm7.Button1Click(Sender: TObject);
var
ini:TIniFile;
begin
ini.WriteBool('PASSWORD','pfad',directorylistbox1.Selected[0]);
end;					

1:
2:
3:
4:
5:
6:

procedure TForm7.Button2Click(Sender: TObject);
var
ini:TIniFile;
begin
ini.WriteString('PASSWORD','pfad',ExtractFilePath(ParamStr(0)));
end;					

1:
2:
3:
4:
5:

  for i := 0 to Listbox1.Items.Count - 1 do begin
   if Listbox1.Selected[i] then begin
     ShowMessage(Listbox1.Items.Strings[i]);
   end;
 end;					

1:
2:
3:
4:
5:

var Verzeichnis: String;
begin
 Verzeichnis := ExtractFilePath(ParamStr(0));
 ini.WriteString('xxx','xxx',Verzeichnis);
end;					

1:
2:
3:
4:
5:

var
 ini: TIniFile;
begin
 ini := TIniFile.Create('FILENAME!');
...					

1:

INI.Free;