Сообщение...

[KoBRaAndrey]

Я хочу чтобы в сообщение выводилось res.

procedure TForm1.Button1Click(Sender: TObject);
Var
reg:tregistry;
res:string;
begin
   reg:=tregistry.create;
   reg.rootkey:=HKEY_LOCAL_MACHINE;
   reg.openkey('SOFTWARE\1C\IL-2 Sturmovik Forgotten Battles AEP', true);
   res:=reg.ReadString('Directory');
   reg.closekey;
   reg.free;
   Application.MessageBox('тут чтобы было res', '',);
end;

Подскажите я только учусь

[Stilet]

Application.MessageBox('тут чтобы было res', '',);

ShowMessage(res)

[raxp]

просто
messagebox(0,'бла-бла-бла','тут чтобы было res',mb_ok)

[KoBRaAndrey]

Спасибо! а в том сообщение нельзя? (только ради интереса)

[KoBRaAndrey]

messagebox(0,'бла-бла-бла','тут чтобы было res',mb_ok)

неработает

[М_Виктор]

Сообщение от KoBRaAndrey

messagebox(0,'бла-бла-бла','тут чтобы было res',mb_ok)

неработает

для появления сообщения об ошибке:
MessageDlg('ОШИБКА !!!!', mtError,[mbOk], 0);

для появления сообщения информационного плана:
MessageDlg('ИНФОРМАЦИЯ......', mtInformation,[mbOk], 0);

для появления предупреждения:
MessageDlg(ПРЕДУПРЕЖДАЮ !!!...', mtWarning,[mbOk], 0);

для появления сообщения с вопросом:
if MessageDlg('БУДЕМ ИЗУЧАТЬ DELPHI ?', mtConfirmation,[mbYes,mbNo], 0)=mrYes then
begin
{может быть}
end;

[uberchel]

Шо тут не понятного ?

procedure TForm1.Button1Click(Sender: TObject);
Var
reg:tregistry;
res:string;
begin
   reg:=tregistry.create;
   reg.rootkey:=HKEY_LOCAL_MACHINE;
   reg.openkey('SOFTWARE\1C\IL-2 Sturmovik Forgotten Battles AEP', true);
   res:=reg.ReadString('Directory');
   reg.closekey;
   reg.free;
   MessageBox(0,PChar(res), '',48);
end;

[raxp]

Сообщение от KoBRaAndrey

messagebox(0,'бла-бла-бла','тут чтобы было res',mb_ok)

неработает

- специально для вас см.вложение

[KoBRaAndrey]

спасибо )