dobrý denvytvořila jsem program, ve kterém vytvářím složku, do této ukládám složky a soubory a to celé pak ZIPem zabalím, po komprimaci chci smazat tuto složku fcí DelDir (která je určena k mazání neprádných adresářů), avšak smažou se jen soubory, složka a podsložky zůstanou.nenapadá vás, kde je chyba?pro úplnost uvádím fci DelDir:function DelDir(dir: string): Boolean;var fos: TSHFileOpStruct;begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_DELETE; fFlags := FOF_SILENT or FOF_NOCONFIRMATION; pFrom := PChar(dir + #0); end; Result := (0 = ShFileOperation(fos));end;děkuji
