Помогите с текстовым файликом

[Drax]

Помогите с программкой на Delphi пожалуйста, надо чтоб при нажатии на кнопку (поле, картинку) запускалась программа, при нажатии на кнопку (поле, картинку) прога брала путь запускаемой программки из текстового файлика и из определенной строки, и еще чтоб на кнопке (поле, картинке) была иконка запускаемой программки.

[Stilet]

прога брала путь запускаемой программки из текстового файлика

Лучше всего хранить список программ в INI файле. При запуске твоей, считывать этот список, получать по нему иконку программ и отрисовывать их на кнопках.
Сам то пытался что-то сделать?

[Drax]

Да я начинающий, да побывал , даже не знаю с кокой стороны подойти. Как сделать кнопку, форму я знаю, а вот что касается кода не знаю

Никто не знает, нет умельцев подсказать?

[Stilet]

Начни с этих:
http://www.programmersforum.ru/showthread.php?t=14551
http://www.az-design.ru/index.shtml?...dSectionValues
http://z-oleg.com/delphi/reestr3.htm

Кстати. В хелпе Делфи тоже пример есть на этот метод

Разберись сначала с INI файлами, научись просто читать, а потом уж и будешь учится картинки вытягивать из экзешников - тоже не сложно.

нет умельцев подсказать?

Чтож такой нетерпеливый то?

[Drax]

Да, терпения нет, спасибо за инфу, посмотрю счас

мм, (( если честно я ничего не понял из прочитанного, зачем мне создавать ini и потом его стирать, если он будит уже создан и не удаляем. если не затруднит Вас напишите просто пример открытия программки при нажатии на кнопку с ini файлом, а то я уже давно бьюсь с этим делом

[Impuls1989]

uses StdCtrls, ShellApi;
....
procedure TForm1.Button1Click(Sender: TObject);
var ini:TIniFile;
     s:TStrings;
     fn:string;
     i:integer;
begin
  ini:=TIniFile.Create('c:\123.ini');
  s:=TStringList.Create;
  ini.WriteString('FileName','v1','c:\Windows\notepad.exe');
  ini.WriteString('FileName','v2','c:\Windows\System32\calc.exe');
  ini.WriteString('FileName','v2','c:\Windows\System32\cmd.exe');
  ini.ReadSection('FileName',s);
  for i:=0 to s.Count-1 do
  begin
    fn:=ini.ReadString('FileName',s.Strings[i],'');
    if (fn<>'') then
      ShellExecute(Handle, 'open',PChar(fn), nil, nil, SW_SHOWNORMAL);
  end;
  ini.Free;
end;

По нажатии на кнопку откроется: блокнот, калькулятор и командная строка. Соответственно репертуар программ можно изменять хоть до бесконечности (в разумных пределах конечно)))
То, что выделено красным, записывает в ini файл данные о путях к программам. Эти строки нужно либо перенести в другую функцию, либо убрать вообще и записывать данные в файл в ручную...
Если что-то не понятно: спрашивайте.

[Drax]

Огромное спасибо!!!сейчас буду смотреть.

Все работает нормально, буду еще благодарен если покажете как отображать на кнопке иконку запускаемой программы

[Impuls1989]

Думаю такой способ Вас устроит:
Кидаете на форму кнопку BitBtn (вкладка AddItional) и в обработчике OnClick пишете код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var Icon: TIcon;
     IconHandle:HICON;
begin
    Icon := TIcon.Create;
    IconHandle:=ExtractIcon(MainInstance,PChar('C:\Windows\notepad.exe'),0);
    Icon.Handle:=IconHandle;
    BitBtn1.Glyph.Width:=Icon.Width;
    BitBtn1.Glyph.Height:=Icon.Height;
    BitBtn1.Glyph.Canvas.Draw(0,0,Icon);
    Icon.Free;
end;

Не забудьте подключить ShellApi:

uses ShellApi

Будьте осторожны с выбором размера кнопки... Если размеры иконки будут больше размеров кнопки (ну вы сами увидите)))
0 в функции ExtractIcon(MainInstance,PChar('C:\ Windows\notepad.exe'),0); означает то, что нужно извлекать 0-ую иконку (их может быть и несколько)
Кстати! Так можно доставать иконки не только из exe но и из dll

[Drax]

Все классно, понятно, но последний вопросик, а как сделать так чтоб путь к иконки программы брался из ini, то есть соединить теперь эти два разных кода?))) пытаюсь это осмыслить, счас голова лопнит. Тоесть при открытии формы автоматом появлялась иконка приложения на кнопке, путь которого у меня заранее написан в ini файле, а уже потом при нажатии на кнопку открывалось, о как))

[Impuls1989]

Ну тут все элементарно. Перед использованием любого элемента (будь то кнопка, поле ввода или какой-нибудь экзотический компонент) его необходимо создать (выделить под него память, проинициализировать все переменные ну и далее всякая дребеденька...). За создание элемента отвечает метод Create. Тоже, если вы хотите удалить компонент: метод Destroy (освободить выделенную под него память...). К счастью не нужно вручную вызывать для каждого положенного на форму компонента Create и Destroy. Все это делает ваше приложение автоматически... Но все это типовые действия... А что делать, если нужно сделать то, что не было предусмотрено программистами Borland (проинициализировать переменную, прочитать/записать настройки и т.д.)? И тут приходит на помощь события... События - это процедуры, вызываемые при каких-либо событиях (нажатие на кнопку, создание формы, движение мышкой и т.д.). Не исключением является и форма приложения. В нем тоже есть десятка 3-4 разнообразных событий... В данном случае нас как раз и интересует событие OnCreate (т.е. событие, наступающее при создании формы).
Итак. Что из выше написанного надо вынести:
В событии OnCreate формы стоит написать такой код:

procedure TForm1.FormCreate(Sender: TObject);
var ini:TIniFile;
     s:TStrings;
procedure SetIcon(btn:TBitBtn; WayToExe:string);
var Icon: TIcon;
     IconHandle:HICON;
begin
    Icon := TIcon.Create;
    IconHandle:=ExtractIcon(MainInstance,PChar(WayToExe),0);
    Icon.Handle:=IconHandle; 
    with btn do
    begin
       Glyph.Width:=Icon.Width;
       Glyph.Height:=Icon.Height;
       Glyph.Canvas.Draw(0,0,Icon);
    end;
    Icon.Free;
end;
begin
    ini:=TIniFile.Create('c:\123.ini');
    s:=TStringList.Create;
    ini.ReadSection('FileName',s);

    fn:=ini.ReadString('FileName',s.Strings[0],'');
    if (fn<>'') then
      SetIcon(BitBtn1,fn);
    fn:=ini.ReadString('FileName',s.Strings[1],'');
    if (fn<>'') then
      SetIcon(BitBtn2,fn);
  s.free;
  ini.Free;
end;

Далее в обработчике OnClick каждой кнопки нужно прописать нечто на подобие этого:

procedure TForm1.BitBtn1Click(Sender: TObject);
var ini:TIniFile;
     s:TStrings;
     fn:string;
begin
  ini:=TIniFile.Create('c:\123.ini');
  s:=TStringList.Create;
  ini.ReadSection('FileName',s);
  fn:=ini.ReadString('FileName',s.Strings[0],'');//s.Strings[0] - для первого файла; s.Strings[1] - для второго и т.д. в каждом обработчике кнопки свое число
    if (fn<>'') then
      ShellExecute(Handle, 'open',PChar(fn), nil, nil, SW_SHOWNORMAL);
  end;
  s.free;
  ini.Free;
end;

Вот как-то так... Все это можно было бы оптимизировать и сократить код, но лениво)))) Так что Вам придется прописать в каждой кнопке свой обработчик, хотя, если исхитриться, то можно пойти другим путем...

Так что либо так, либо делайте окно выбора нужного файла, и одну обрабатывающую кнопку, запускающую выбранное приложение...