список вывел
procedure Form1_OnShow (Sender: TObject; Action: string);
var
fiLang:TStringList;
i,s: integer;
mnFile: TMenuItem;
subfiLangi: TMenuItem;
st:string;
begin
mnFile := TMenuItem.Create (Form1.MainMenu);
mnFile.Caption := 'Языки';
Form1.MainMenu.Items.Add(mnFile);
fiLang := TStringList.Create;
fiLang.Text := GetFilesList('languages','*.ini',false);
s := fiLang.Count-1;
for i:=0 to s do
begin
subfiLangi:= TMenuItem.Create (Form1.MainMenu);
subfiLangi.Caption := (fiLang[i]);
subfiLangi.OnClick := @ckliclang;
mnFile.Add(subfiLangi);
end;
fiLang.free ;
end;
а вот дальше не получается... и в списке нужно полько имя файла вывести, без адреса...
procedure ckliclang (Sender: string);
var
ini:TiniFile;
begin
ini :=TIniFile.Create(ExtractFilePath (ParamStr (0))+'languagesOptions.ini');
ini.WriteString('lang','directlang',??????????);
ini.free ;
end;
begin
?????????? - имя выбранного файла ini