Öncelikle bir buton yapın. Butonun Caption kısmına "Klasör oluştur" yazısını koyun. Butona iki kez tıklayın ve şu kodu ekleyin:
if CreateDir( 'C:UsersUSERDesktopsanalkurs') then begin Application.MessageBox('Klasör oluşturuldu!','Mesaj', MB_ICONASTERISK); end;
Şu kod butona iki kez tıkladığınızda Begin ve end arasında olmalıdır. Şimdi Run düğmesine basın ve programı çalıştırın. "Klasör oluştur" butonuna tıklanınca masaüstünde "Sanalkurs" adlı bir klasör oluşacak. Aynı zamanda "Klasör oluşturuldu!" adlı bir mesaj gelecek. Aynı resimdeki gibi:
if CreateDir( 'C:UsersUSERDesktopsanalkurs') then begin Application.MessageBox('Klasör oluşturuldu!','Mesaj', MB_ICONASTERISK); end;
Şu kod butona iki kez tıkladığınızda Begin ve end arasında olmalıdır. Şimdi Run düğmesine basın ve programı çalıştırın. "Klasör oluştur" butonuna tıklanınca masaüstünde "Sanalkurs" adlı bir klasör oluşacak. Aynı zamanda "Klasör oluşturuldu!" adlı bir mesaj gelecek. Aynı resimdeki gibi: