Объявление переменной

← →
Mariya (2007-10-05 14:26) [0]

btn.OnClick:=ButtonClick1;
Procedure TForm1.ButtonClick1(Sender: TObject);
begin
ShellExecute(handle, nil, "winword.exe", NiL, NiL, SW_SHOWNORMAL);
end;
Подскажите, как winword.exe объявить переменной и написать в программе, чтобы в ини файле можно было менять, например на Excel.

← →
Ping (2007-10-05 14:32) [1]

WinWordStr: string;

ShellExecute(handle, nil, PChar(WinWordStr), NiL, NiL, SW_SHOWNORMAL);

← →
Mariya (2007-10-05 15:24) [2]

Спасибо, но не поняла где теперь писать название программы, которая должна открыться в ини? а как правильно писать?

← →
Kolan © (2007-10-05 15:35) [3]

Имхо, ты не так придумала.

Надо так, имхо:
В ини есть секция
[Programs] Prog1=Word Prog2=Excel

А потомты читаешь эту секцию и для каждой строчки генеришь кнопку.

А обработчик им назначаешь 1 и то же всем кнопкам.

И вот чтобы в обработчике вызвать нужную прогу, тебе надо ассоциировать(связать) кнопку со строкой.

Я бы сделал так:
Сделал бы наследника кнопки:
TMyButton = class(TButtn) private FProgram: string; public property Program: string read FProgram write FProgram; end;

А обработчик такой:

Procedure TForm1.ButtonClick1(Sender: TObject); begin if Sender is TMyButton then ShellExecute(handle, nil, (Sender as TMyButton).Program, NiL, NiL, SW_SHOWNORMAL); end;

И там где ты кнопки создаешь пиши:

Btn := TMyButton.Create(&#133);
Btn.Program := <Из ини>

← →
Mariya (2007-10-05 15:41) [5]

Спасибо, большое, Вы очень доступно все объяснили, буду пробывать!!!

Объявление переменной Найти похожие ветки