Subversion Repositories delphiutils

Rev

Blame | Last modification | View Log | RSS feed

  1. program Example;
  2.  
  3. // Windows.pas START
  4.  
  5. type
  6.   UINT = LongWord;
  7.   HWND = type LongWord;
  8.  
  9. const
  10.   MB_ICONASTERISK = $00000040;
  11. {$IFDEF MSWINDOWS}
  12.   user32    = 'user32.dll';
  13. {$ENDIF}
  14. {$IFDEF LINUX}
  15.   user32    = 'libwine.borland.so';
  16. {$ENDIF}
  17.  
  18. function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall; external user32 name 'MessageBoxA';
  19.  
  20. // Windows.pas END
  21.  
  22. begin
  23.   MessageBox(0, 'ViaThinkSoft Example Application', 'Demo', MB_ICONASTERISK);
  24. end.
  25.