...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