นวัตกรรม สิ่งประดิษฐ์ และเทคโนโลยี

กรุณา เข้าสู่ระบบ หรือ สมัครสมาชิก.

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
การค้นหาขั้นสูง  

ผู้เขียน หัวข้อ: create a directory  (อ่าน 79 ครั้ง)

NAWATTAKAM

  • Administrator
  • Sr. Member
  • *****
  • กระทู้: 383
create a directory
« เมื่อ: กุมภาพันธ์ 11, 2019, 09:20:32 PM »

Delphi

โค๊ด
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;




BCB

โค๊ด
if(CreateDir("TestDir"))
{
  ShowMessage("New directory added OK");
 }
 else
 {
 ShowMessage("New directory add failed with error : "+
   IntToStr(GetLastError));
  }





บันทึกการเข้า