Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249602 (11038)
  Suchen
 Zurück zur Übersicht
 AutorThema: Papierkorb
Alexander Gall
Datum:27.06.01 22:39 Antwortenals Email verschicken (alexander.gall@web.de) 


Im Moment programmiere ich eine Anwendung, mit der unter anderem Dateien gelöscht werden können. Statt sie direkt zu löschen (Erase), würde ich sie aber lieber in den Papierkorb verschieben lassen. Dabei gibt es aber zwei Probleme:

1.Leider hat ein Befehl wie Copy "C:\Brief.txt" > "C:\Recycled\Brief.txt" keinerlei Wirkung.

2. Ich befürchte, dass der Papierkorb unter Windows ME nicht einmal mehr als Ordner vorhanden ist, so dass mit einem Copy-Befehl oder etwas Ähnlichem auch nichts in den Papierkorb geschoben werden kann.

Hat jemand eine Idee, wie man die beiden Probleme lösen und den Papierkorb (möglichst auch unter Windows ME) mit Profan nutzen könnte? Für Hinweise vielen Dank!


Tobias Fröhlich
Datum: 28.06.01 00:27 Antwortenals Email verschicken (tobias@codeme.de) 


Hallo,

nimm am besten die Methode von Thomas Hölzer aus PRFellow.

'------------------------------------------------------
' PRFellow-Vorlage
' Autor: Thomas Hölzer
' Eine Datei in den Papierkorb verschieben (ab Profan 5.0-32)
' Parameter:
' (1): Voller Pfadname
' (2): 1, wenn Bestätigungs-Dialog angezeigt werden soll
' Eine Rückgabe <> 0 markiert einen Fehler oder User-Abbruch

Def SHFileOperation(1) !"SHELL32","SHFileOperationA"
Declare SHFO#
Declare file#

Proc MoveFileToBin
Parameters file$,confirm%
Declare flags%
FindFirst$(file$)
Case %IOResult: Return -1
Let flags%=64
Case confirm%: Let flags%=80
Dim SHFO#,30
Dim file#,Add(Len(file$),1)
String file#,0=file$
Long SHFO#,0=GetActiveWindow()
Long SHFO#,4=3
Long SHFO#,8=file#
Long SHFO#,12=0
Word SHFO#,16=flags%
Long SHFO#,18=0
Long SHFO#,22=0
Long SHFO#,26=0
Let result&=SHFileOperation(SHFO#)
Dispose file#
Dispose SHFO#
Return result&
EndProc

' Beispiel
Cls
MoveFileToBin "C:\TEST.TST",1
'------------------------------------------------------

MfG,

Tobias



 Zurück zur Übersicht