Skulle behöva en function som kan ta bort en mapp med allt innehåll i. DelFiles('C:\test');DelTree
Ungefär som DelTree i DOS.
Har testat ett par olika som jag funnit på nätet men det vill sig inte. Nån som vet hur man gör?Sv: DelTree
uses
ShellApi
function DelFiles(cFileSpec: string):boolean;
var Struct: TSHFileOpStruct;
pFromc: array[0..255] of char;
Resultval: integer;
begin
fillchar(pfromc,sizeof(pfromc),0);
StrPcopy(pfromc,expandfilename(cFileSpec)+#0#0);
Struct.wnd := 0;
Struct.wFunc := FO_DELETE;
Struct.pFrom := pFromC;
Struct.pTo := nil;
Struct.fFlags:= FOF_ALLOWUNDO or
FOF_NOCONFIRMATION or
FOF_SIMPLEPROGRESS or
FOF_FILESONLY;
Struct.fAnyOperationsAborted := false;
Struct.hNameMappings := nil;
Resultval := ShFileOperation(Struct);
Result := (ResultVal = 0);
end;