Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизНичего не понимаю.... Найти похожие ветки
← →
Tornado (2002-10-29 21:34) [0]Подскажите плиз...Есть форма, на ней 3 радиобутона и кнопка ОК. Под кнопкой код:
procedure TfrmMain.btnOKClick(Sender: TObject);
begin
if rbSave.Checked then begin
file_name := ExtractFilePath(paramstr(0)) + "Bat\makapt15.bat";
ShellExecute(Handle,"open",PChar(file_name),nil,nil,SW_SHOW);
end ;
if rbAnaliz.Checked then begin
file_name := ExtractFilePath(paramstr(0)) + "Bat\makapt18.bat";
ShellExecute(Handle,nil,PChar(file_name),nil,nil,SW_SHOW);
end;
if rbReclaim.Checked then
file_name := ExtractFilePath(paramstr(0)) + "Bat\makapt20.bat";
ShellExecute(Handle,nil,PChar(file_name),nil,nil,SW_SHOW); }
end;
Вообщем в зависимости от выбраного радиобутона нужно выполнить соответствующий файл. Только проблема: при выбере 1 радиобутона выполняются почему-то сразу два БАТ-файла, при выборе второго - тоже два и только когда выбираю третий радиобутон выполняется нормально положенный файл...Почему это?
← →
Song (2002-10-30 08:28) [1]Ошибка не здесь.
Если не хотите искать поставьте после первых двух ShellExecut"ов Exit
← →
Tornado (2002-10-30 08:38) [2]> Song © (30.10.02 08:28)
Спасибо, я попробую, но все таки не могли бы Вы подсказать характер этой ошибки, из-за чего она возникает. Если не сложно.
← →
Separator (2002-10-30 08:44) [3]Попробуй использовать не RadioButton, а RadioGroup
← →
iNew (2002-10-30 08:46) [4]А это случайно не потому-что после 3-го if rbReclaim.Checked then нету
begina.
← →
Tornado (2002-10-30 09:45) [5]> Separator © (30.10.02 08:44)
Пробовал - тоже самое
> iNew (30.10.02 08:46)
Begin есть на самом деле, я здесь его вписать забыл просто, пробовал по-разному, и с begin и без....все одно
← →
Nomad.kz (2002-10-30 09:57) [6]меня смущает эта строка:
file_name := ExtractFilePath(paramstr(0)) + "Bat\makapt15.bat";
непонятная какая-то. получается, что выполняется батник c:\tralala\prj.exe Bat\makapt15.bat
← →
Lord Warlock (2002-10-30 09:57) [7]procedure TfrmMain.btnOKClick(Sender: TObject);
begin
...
if rbReclaim.Checked then
begin
file_name := ExtractFilePath(paramstr(0)) + "Bat\makapt20.bat";
ShellExecute(Handle,nil,PChar(file_name),nil,nil,SW_SHOW);
end
end;
← →
Nomad.kz (2002-10-30 09:58) [8]вдогонку, извиняюсь, смотрю в книгу, а вижу фигу. ExtractFilePath в упор не видел :-))
← →
Separator (2002-10-30 11:36) [9]
procedure TfrmMain.btnOKClick(Sender: TObject);
begin
file_name:= ExtractFilePath(ParamStr(0)) + "Bat\";
if rbSave.Checked then
file_name:= file_name + "makapt15.bat"
else if rbAnaliz.Checked then begin
file_name:= file_name + "makapt18.bat"
else if rbReclaim.Checked then
file_name:= file_name + "makapt20.bat";
ShellExecute(Handle,nil,PChar(file_name),nil,nil,SW_SHOW); }
end;
> Nomad.kz (30.10.02 09:58
function ExtractFilePath(const FileName: string): string
- Возвращает путь к каталогу (включая указание диска и слэш перед именем файла), вырезанный из строки с полным именем файла FileName.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c