Как вставить переменную в...

[kostghost]

Чет я туплю.. Как вставить переменную в showmessage?

else
  ShowMessage('Вы ввели неверный пароль, осталось попыток: ... из 3 ');   
  k:= k+1;
 if k=3 then form1.close;

Вместо ... нужно поставить переменную k. Не доходит, как? Поиском ничего не нашел. (помидорами прошу не закидывать )

[DeKot]

 ShowMessage('Вы ввели неверный пароль, осталось попыток:' + IntToStr(k) + ' из 3 ');

[kostghost]

Спс большое =) Все отлично работает!

  ShowMessage('Вы ввели неверный пароль, осталось попыток: '+IntToStr(3-k)+' из 3 ');

[Sorgan]

Собственно тот же вопрос:
var
min: integer; // время, минуты
sleep: integer; // время, секунды для командной строки
begin
min := StrToInt (Edit1.Text);
//sleep := min * 60;
ShellExecute(0,'open','cmd.exe','/k' + IntToStr(min),'C:\Windows\system32\ ',SW_SHOW);
end;

end.

Подскажите что не верно :-(.

[Serge_Bliznykov]

Вам же ошибка выдаётся! И там, наверняка, написано, в чём она заключается!
Думаю, что ожидается тип PChar

попробуйте так:

  ShellExecute(0,'open','cmd.exe',PChar('/k' + IntToStr(min)),'C:\Windows\system32\ ',SW_SHOW);

и вообще, зачем Вы переводите строку из Edit1 в число, чтобы тут же перевести это число обратно в строку?!! o_O!


а если не секрет, что за число вы пытаетесь вставить после параметра /K ?!

[Sciv]

Еще пробел после /k

Да и вообще - это что за извращение?

min := StrToInt (Edit1.Text);
...
... + IntToStr(min)...

UPDATE А, Серж уже спросил!

[Sorgan]

После /k хотел вставить shutdown /s /t.

[Sorgan]

Так не работает ни чего
var
min: integer; // время, минуты
sleep: integer; // время, секунды для командной строки
begin
min := StrToInt (Edit1.Text);
sleep := min * 60;
ShellExecute(0,'open','cmd.exe',PCh ar('/k shutdown /s /t' + IntToStr(sleep)),'C:\Windows\system 32\ ',SW_SHOW);

end;

end.

:-(, обьясните что я делаю не правильно, только учусь.

Пробел, про который упоминалось выше, пропустил. Спасибо.

[Sorgan]

Объясните как правильно и грамотно надо было сделать! Пожалуйста.

[sariman]

var
  min: integer; // время, минуты
  sleep: integer; // время, секунды для командной строки
begin
  min := StrToInt (Edit1.Text);
  sleep := min * 60;
  ShellExecute(0, 'open', 'cmd.exe', PChar('/k shutdown /s /t' + IntToStr(sleep)), 'C:\Windows\system 32\', SW_SHOW);
end;

И вообще что за ошибки-то выдаёт?!

Прикрепил исходник, посмотрите, таймер выключения.