الاضافات للبرنامج ( اصوات خلفيات ...)

[onexite]

عليكم باضافة هذه الدالة التي تتحق من وجود الملف

PHP كود :

procedure notDexist(path:string);
 begin
   if not DirectoryExists(path) then
   MkDir(path);
 end; 


والاستخدام

PHP كود :

if pos('.salaty_style',ParamStr(1))>0 then
if MessageDlg('هل تريد اضافة هذا الشكل الى البرنامج',mtConfirmation, mbOKCancel, 0)=1 then begin
notDexist(ExtractFilePath(ParamStr(0))+'styles');
MyZipExtract(ParamStr(1),ExtractFilePath(ParamStr(0))+'styles') ;
end;

if pos('.salaty_wall',ParamStr(1))>0 then
if MessageDlg('هل تريد اضافة هذه الخلفيات الى البرنامج',mtConfirmation, mbOKCancel, 0)=1 then begin
notDexist(ExtractFilePath(ParamStr(0))+'backgrounds');
MyZipExtract(ParamStr(1),ExtractFilePath(ParamStr(0))+'backgrounds') ;
end;

if pos('.salaty_sound',ParamStr(1))>0 then
if MessageDlg('هل تريد اضافة هذه الاصوات الى البرنامج',mtConfirmation, mbOKCancel, 0)=1 then begin
notDexist(ExtractFilePath(ParamStr(0))+'sounds');
MyZipExtract(ParamStr(1),ExtractFilePath(ParamStr(0))+'sounds') ;
end; 


والنتيجة النهائية