Tips (1541)

Tip Bewertung (5):

uses
  Dialogs;

begin
  {$I-}
  MkDir('c:\windows');
  {$I+}
  if IOResult <> 0 then
    MessageDlg('Cannot Create Directory/Verzeichnis kann nicht angelegt werden!',
      mtWarning, [mbOK], 0)
  else
    MessageDlg('Directory Created/Neues Verzeichnis angelegt.', mtInformation, [mbOK], 0);
end;