empty recycle bin/de: Difference between revisions
From Free Pascal wiki
Jump to navigationJump to search
No edit summary |
m (Fixed syntax highlighting; deleted category included in page template) |
||
Line 1: | Line 1: | ||
{{empty recycle bin}} | {{empty recycle bin}} | ||
Zurück zur Seite [[code examples/de|Code Beispiele]]. | |||
Zurück zur Seite [[code examples/de|Code Beispiele]]. | |||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |||
Die Prozedur leert den Papierkorb ohne Rückfrage. | |||
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | |||
Beispiel: | |||
<syntaxhighlight> | Die Prozedur leert den Papierkorb ohne Rückfrage. | ||
Beispiel: | |||
<syntaxhighlight lang=pascal> | |||
uses | uses | ||
Windows, SysUtils, ...; | Windows, SysUtils, ...; | ||
Line 58: | Line 62: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Latest revision as of 08:44, 14 February 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
Zurück zur Seite Code Beispiele.
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Prozedur leert den Papierkorb ohne Rückfrage.
Beispiel:
uses
Windows, SysUtils, ...;
...
function funPapierkorbLeeren: boolean;
const
SHERB_NOCONFIRMATION = $00000001;
SHERB_NOPROGRESSUI = $00000002;
SHERB_NOSOUND = $00000004;
type
{Definition der aufzurufenden Funktion wie Sie in der DLL Shell32.dll
definiert ist}
TSHEmptyRecycleBin = function(Wnd: HWND; pszRootPath: PChar; dwrFlag: DWORD):
HRESULT; stdcall;
var
SHEmptyRecycleBin: TSHEmptyRecycleBin;
LibHandle: THandle;
begin
Result := False;
// Ermittelt den Handle der Library
LibHandle := LoadLibrary(PChar('Shell32.dll'));
try
if LibHandle <> 0 then
begin
{Weisst der Variablen SHEmptyRecycleBin die Adresse des Funktionsaufrufs
der Funktion aus der DLL Shell32.dll zu.}
Pointer(SHEmptyRecycleBin) := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA');
if @SHEmptyRecycleBin <> nil then
begin
//SHEmptyRecycleBin(Application-Handle ermitteln, ...
SHEmptyRecycleBin(GetParent(Form1.Handle), nil,
SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
Result := True;
end;
end;
finally
SHEmptyRecycleBin := nil;
FreeLibrary(LibHandle);
end;
end;
...