Difference between revisions of "File Into Trash/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
| Line 1: | Line 1: | ||
{{File Into Trash}} | {{File Into Trash}} | ||
| + | <br> | ||
<br> | <br> | ||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.<br> | ||
| Line 35: | Line 36: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 04:05, 17 May 2013 (UTC) | --[[User:Olaf|Olaf]] 04:05, 17 May 2013 (UTC) | ||
| − | [[Category:Code Parts/de]] | + | [[Category:Code Parts/de]]{{AutoCategory}} |
Revision as of 08:00, 3 August 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)
