Difference between revisions of "File Into Trash/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; deleted category included in page template) |
||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
{{File Into Trash}} | {{File Into Trash}} | ||
| − | + | ||
| − | + | ||
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. |
| − | Die Funktion verschiebt eine Datei in den Papierkorb. | + | |
| − | + | ||
| − | <syntaxhighlight> | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. |
| + | |||
| + | Die Funktion verschiebt eine Datei in den Papierkorb. | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
ShellAPI, FileUtil, ...; | ShellAPI, FileUtil, ...; | ||
| Line 15: | Line 19: | ||
Dateistruktur: TSHFileOpStruct; | Dateistruktur: TSHFileOpStruct; | ||
begin | begin | ||
| − | |||
FillChar(Dateistruktur, SizeOf(Dateistruktur), 0); | FillChar(Dateistruktur, SizeOf(Dateistruktur), 0); | ||
| Line 27: | Line 30: | ||
Result := ShFileOperation(Dateistruktur) = 0; | Result := ShFileOperation(Dateistruktur) = 0; | ||
| − | |||
end; | end; | ||
| Line 33: | Line 35: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 04:50, 15 February 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
English (en) │
Zurück zur Seite Code Beispiele.
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;
...
