| Autor |
Beitrag |
Bergmann89
 
Beiträge: 1742
Erhaltene Danke: 72
Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
|
Verfasst: Mi 09.02.11 01:19
Hey,
ich versuch grad unter Win7 nen Ordner (sammt Inhalt) zu löschen. Leider is das nich mehr so einfach wie unter XP, da hab ich einfach DeleteFile benutzt und schon war er weg (wenn ich mich recht erinner). Also hab ich mal in der MSDN Library gesucht und folgendes gefunden: SHFileOperation
Laut Beschreibung kann dieser Befehl ein komplettes Verzeichniss sammt Inhalt rekursiev löschen, also wie gemacht für mein Problem. Nur leider kennt mein Delphi 7 diese Funktion nicht, bzw ich finde die Unit nicht, die ich dazu einbinden muss. Gibt es diese Funktion in Delphi 7 überhaupt schon, oder gibt es evtl noch eine andere Lösung für mein Problem? Wäre toll wenn mir da mal eben jmd helfen könnte.
gn8 Bergmann. _________________ Ich weiß nicht viel, lern aber dafür umso schneller^^
|
|
Narses
Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Mi 09.02.11 01:28
Moin!
 Bergmann89 hat folgendes geschrieben  : | | ich versuch grad unter Win7 nen Ordner (sammt Inhalt) zu löschen. Leider is das nich mehr so einfach wie unter XP, da hab ich einfach DeleteFile benutzt und schon war er weg (wenn ich mich recht erinner). |
Also, das halte ich aber für ein Gerücht.  Ordner(+Inhalt) konnte man noch nie "einfach so" löschen. 
Und schonmal bei uns in die Suche geschaut? AFAIR sollten wir da einiges zu haben.   
cu
Narses _________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Hobby-Programmierer
Beiträge: 238
Erhaltene Danke: 4
Win XP Pro, Vista Ultimate Trial :o)
D6 Pro, D7 Pro, Turbo, XE SE
|
Verfasst: Mi 09.02.11 02:00
Moin ...,
sollte unter D 7 und Win 7 laufen   Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| var
aSHFOS : TSHFileOpStruct;
szFrom : array[0..128] of Char;
begin
FillChar(aSHFOS, Sizeof(aSHFOS), #0);
FillChar(szFrom, Sizeof(szFrom), #0);
StrPCopy(szFrom, 'e:\Test');
with aSHFOS do begin
Wnd := Handle;
wFunc := FO_DELETE;
pFrom := @szFrom;
fFlags := FOF_NOCONFIRMATION or FOF_ALLOWUNDO;
fAnyOperationsAborted := False;
hNameMappings := nil;
lpszProgressTitle:= nil;
end;
ShFileOperation(aSHFOS);
end; |
LG Mario
|
|
Bergmann89 
Beiträge: 1742
Erhaltene Danke: 72
Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
|
Verfasst: Mi 09.02.11 02:07
_________________ Ich weiß nicht viel, lern aber dafür umso schneller^^
|
|
Hobby-Programmierer
Beiträge: 238
Erhaltene Danke: 4
Win XP Pro, Vista Ultimate Trial :o)
D6 Pro, D7 Pro, Turbo, XE SE
|
Verfasst: Mi 09.02.11 02:09
Sorry, hatte ich vergessen zu erwähnen 
Delphi-Quelltext
Bei mir lief es damals unter D 7 Pro. Der Code ist allerdings locker 10 Jahre alt.
|
|
Narses
Beiträge: 10183
Erhaltene Danke: 1256
W10ent
TP3 .. D7pro .. D10.2CE
|
Verfasst: Mi 09.02.11 02:23
_________________ There are 10 types of people - those who understand binary and those who don´t.
|
|
Frühlingsrolle
Ehemaliges Mitglied
Erhaltene Danke: 1
|
Verfasst: Mi 09.02.11 08:21
- Nachträglich durch die Entwickler-Ecke gelöscht -
|
|
Bergmann89
Beiträge: 1742
Erhaltene Danke: 72
Win7 x64, Ubuntu 11.10
Delphi 7 Personal, Lazarus/FPC 2.2.4, C, C++, C# (Visual Studio 2010), PHP, Java (Netbeans, Eclipse)
|
Verfasst: Mi 09.02.11 10:54
Hey,
@Hobby-Programmierer: Danke. Die Unit is mir heut früh unter der Dusche auch in den Sinn gekommen ^^
@Narses:  schön blöd, hätt ich auch selber drauf kommen können 
Gut dann hab ich jetzt alles was ich wollte un kann heut Abend weiter arbeiten. Dankeschön.
MfG Bergmann. _________________ Ich weiß nicht viel, lern aber dafür umso schneller^^
|
|
|
ORDNER LÖSCHEN