Difference between revisions of "File Into Trash/de"
From Lazarus wiki
Jump to navigationJump to searchm |
|||
Line 37: | Line 37: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 04:05, 17 May 2013 (UTC) | --[[User:Olaf|Olaf]] 04:05, 17 May 2013 (UTC) | ||
− | [[Category:Code | + | |
+ | |||
+ | {{AutoCategory}} | ||
+ | [[Category:Code Snippets/de]] |
Revision as of 00:04, 30 October 2015
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;
...
--Olaf 04:05, 17 May 2013 (UTC)