procedure TForm1.DeleteDirectory(const DirName: string);var FileOp: TSHFileOpStruct;begin FillChar(FileOp, SizeOf(FileOp), 0); FileOp.wFunc := FO_DELETE; FileOp.pFrom := PChar(DirName+#0);//double zero-terminated FileOp.fFlags := FOF_SILENT or F

function TForm1.ServiceIsPresent(sMachine, sService: PChar): Boolean;var SCManHandle, SvcHandle: SC_Handle;begin SCManHandle := OpenSCManager(sMachine, nil, SC_MANAGER_CONNECT); if (SCManHandle > 0) then begin SvcHandle := OpenService(SCMan

کامپوننت Kylix_SMS_v5.5.0.4_Fulll دانلود

برای برطرف نمودن این خطا به رجیستری رفته و مسیر زیر را دنبال نمایید HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlSession ManagerPendingFileRenameOperations و گزینه زیر را حذف نمایید PendingFileRenameOperations