Difference between revisions of "File Into Trash/de"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{File Into Trash}} <br> Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> Die Funktion verschiebt eine Datei in den Papierkorb<br> <br> <syntaxhighlight> us...") |
m |
||
Line 2: | Line 2: | ||
<br> | <br> | ||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | ||
− | Die Funktion verschiebt eine Datei in den Papierkorb<br> | + | Die Funktion verschiebt eine Datei in den Papierkorb.<br> |
<br> | <br> | ||
<syntaxhighlight> | <syntaxhighlight> |
Revision as of 06:05, 17 May 2013
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
English (en) │
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion verschiebt eine Datei in den Papierkorb.
uses
ShellAPI, FileUtil, ...;
...
function funDateiInPapierkorbVerschieben(strDateiname: string): boolean;
var
Dateistruktur: TSHFileOpStruct;
begin
FillChar(Dateistruktur, SizeOf(Dateistruktur), 0);
with Dateistruktur do
begin
wFunc := FO_DELETE;
// Lässt Umlaute usw. im Dateinamen zu
pFrom := PChar(UTF8ToSys(strDateiname));
fFlags := FOF_ALLOWUNDO + FOF_NOCONFIRMATION + FOF_SILENT;
end;
Result := ShFileOperation(Dateistruktur) = 0;
end;
...
--Olaf 04:05, 17 May 2013 (UTC)