Вывод переменных в messagebox() delphi/pascal

[Igor100]

while true do
        begin
          s:=0;
          sleep(1000);
          GetDirSize(fold,s);
          if spec <> s then
              begin
              spec:=s;
              MessageBox(0, s,'Размер изменился в ',TimeToStr(GetTime),' ',DateToStr(Date), PChar('Название окна'),0);
              end;
        end;

Как будет правильно ???

[Swarog]

ага можно выводить....

while true do
        begin
          s:=0;
          sleep(1000);
          GetDirSize(fold,s);
          if spec <> s then
              begin
              spec:=s;
              MessageBox(0, s+'Размер изменился в '+TimeToStr(GetTime)+' '+DateToStr(Date), PChar('Название окна'),0);
              end;
        end;

описывайте проблему нормально, здесь не экстрасенсы сидят

[Igor100]

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

ага можно выводить....

while true do
        begin
          s:=0;
          sleep(1000);
          GetDirSize(fold,s);
          if spec <> s then
              begin
              spec:=s;
              MessageBox(0, s+'Размер изменился в '+TimeToStr(GetTime)+' '+DateToStr(Date), PChar('Название окна'),0);
              end;
        end;

описывайте проблему нормально, здесь не экстрасенсы сидят

Я написал программу (консольное приложение) которая следит за каталогом, если размер каталога изменится то программа должна сообщить об это в виде сообщения.
Исправленный вами код не работает !!!

[Swarog]

в uses добавь windows

uses
  SysUtils, windows;

место вывода сообщения исправь следующим образом

  MessageBox(0, pchar( s+'Размер изменился в '+TimeToStr(GetTime)+' '+DateToStr(Date)), PChar('Название окна'),0);

при таком раскладе все работает, проверено

[MoBLer]

 GetDirSize(fold,s);
 GetDirSize(fold,spec);
while true do
        begin
          sleep(1000);
          GetDirSize(fold,s);
          if spec <> s then
              begin
              spec:=s;
              MessageBox(0,pchar(inttostr(s)+'Размер изменился в '+TimeToStr(GetTime)+' '+DateToStr(Date)), PChar('Название окна'),0);
              end;
        end;

вы в цикле обнуляли переменную s а потом ее сравневели.
И вообще переменная s численного тип выводить ее надо inttostr(s)