home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPBOOK.ZIP / TPBOOK.EXE / SOURCE.EXE / DMSGBOX2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-08-07  |  433 b   |  21 lines
  1. { DMSGBOX2.PAS
  2.   Demonstrates use of the MessageBox function
  3. }
  4. procedure TShell.DemoMessageBox;
  5.  
  6. var
  7.   Control : Word;
  8.   ErrMsg  : Array [0..0] of Longint;
  9.   FileName: String;
  10.  
  11. begin
  12.  
  13.   FileName := 'SAMPLE.TXT';
  14.   ErrMsg[0] := Longint(@FileName);
  15.   Control := MessageBox ('Problem renaming %s', @ErrMsg,
  16.                                mfError or mfOKButton or mfCancelButton );
  17.  
  18. end; { TShell.DemoMessageBox }
  19.  
  20.  
  21.