...ein Verzeichnis erstellen?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: Dateien

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;

printed from
www.swissdelphicenter.ch
developers knowledge base