[Помогите!] SHell Api open file

[CyberNEŦik]

я знаю команду как открыть файл с помощью шел апи.

Так вот примерный код :
(кодкодкод,ПУТЬ К ФАЙЛУ,кодкодкод)
Так вот, когда я вписываю адрес к файлу вручную, то всё збс.
А вот когда Я туда помещаю Стринг, то выдаёт в том месте

Так же, помогите, я вот не помню как называется тот элемент
Типо таблица, кто может скиньте пожалуйста как ей пользоваться и её называние.
+ ПОЖАЛУЙСТА помогите
как сканировать 2 вертикальных столбика этой таблицы (бесконечно вниз, т.е. сколько их всего) только 2е первых.

[metraz]

Цитата: Сообщение от CyberNEŦik я знаю команду как открыть файл с помощью шел апи. Так вот примерный код : (кодкодкод,ПУТЬ К ФАЙЛУ,кодкодкод) Так вот, когда я вписываю адрес к файлу вручную, то всё збс. А вот когда Я туда помещаю Стринг, то выдаёт в том месте Так же, помогите, я вот не помню как называется тот элемент Типо таблица, кто может скиньте пожалуйста как ей пользоваться и её называние. + ПОЖАЛУЙСТА помогите как сканировать 2 вертикальных столбика этой таблицы (бесконечно вниз, т.е. сколько их всего) только 2е первых.

Я вообще ничего не понял.

[VeTaL_UA]

А теперь тоже, только после полного выхода алкоголя с организма.

[Skrillex3]

Цитата: Сообщение от CyberNEŦik Типо таблица, кто может скиньте пожалуйста как ей пользоваться и её называние.

listview мб?

[Erstown]

procedure TForm1.Button1Click(Sender: TObject);
begin
if (ComboBox1.Text='Old') or (Label1.Caption='1') then
ini.WriteString('UI', 'Theme', ' 0')
else
if (ComboBox1.Text='Genesis') or (Label1.Caption='0') then
ini.WriteString('UI', 'Theme', ' 1')
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ini.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ini:=TiniFile.Create(Edit1.Text + '\element\userdata\SystemSettings.ini');
Label1.Caption:= ini.ReadString('UI', 'Theme', 'Íå íàéäåíî');
if (Label1.Caption='1') then
Label1.Caption:='Genesis'
else
if (Label1.Caption='0') then
Label1.Caption:='Old'
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  fileName : string;
  myFile   : TextFile;
  data     : string;
begin
 if FileExists(Edit1.Text + '\element\userdata\SystemSettings.ini')
  then
  Button1.Enabled:=true
  else
  MessageBox(Application.Handle,'Файл по данному пути не найден','Ошибка', MB_OK);
  end;

procedure TForm1.Button5Click(Sender: TObject);
var
Dir: string;
begin
  if SelectDirectory('Выберите каталог', '\', Dir)
  then Edit1.Text:=(Dir);
end;

Держи, может что понадобится.

[CyberNEŦik]

Большое спасибо! Блин я не знаю что было вчера. Тупил ппц, спасибо всем)