1:
2:
3:

CLS
KILL "C:\Dokumente und Einstellungen\Administrator\Lokale Einstellungen\Verlauf\*.*"
END                    

1:
2:
3:

begin
deletefile ('C:\buch\blabla.txt')  ;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
begin
  deleteFile ('net.001');
  deleteFile ('net.cfg');
  IF NOT RemoveDir ('C:\a') THEN
    showmessage ('Verzeichnis XY konnte nicht gelöscht werden !');
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function DelDir(dir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_DELETE;
    fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(dir + #0);
  end;
  Result := (0 = ShFileOperation(fos));
end;                    

1:
2:
3:
4:

if history.Checked
then begin
    DelDir('C:\Dokumente und Einstellungen\+"GetCurrentUserName"+\Lokale Einstellungen\Verlauf\');
end;                    

1:

DelDir('C:\OrdnerName');                    

1:
2:
3:
4:
5:
6:
7:

begin
  CoInitialize(nil);

  { ... }

  CoUnInitialize;
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

uses
  ComObj;

type
  STATURL = record
    cbSize: DWORD;
    pwcsUrl: DWORD;
    pwcsTitle: DWORD;
    ftLastVisited: FILETIME;
    ftLastUpdated: FILETIME;
    ftExpires: FILETIME;
    dwFlags: DWORD;
  end;

  IEnumSTATURL = interface(IUnknown)
    ['{3C374A42-BAE4-11CF-BF7D-00AA006946EE}']
    function Next(celt: Integer; out elt; pceltFetched: PLongint): HRESULT; stdcall;
    function Skip(celt: Longint): HRESULT; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out ppenum: IEnumSTATURL): HResult; stdcall;
    function SetFilter(poszFilter: PWideChar; dwFlags: DWORD): HResult; stdcall;
  end;

  IUrlHistoryStg = interface(IUnknown)
    ['{3C374A41-BAE4-11CF-BF7D-00AA006946EE}']
    function AddUrl(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer): HResult; stdcall;
    function DeleteUrl(pocsUrl: PWideChar; dwFlags: Integer): HResult; stdcall;
    function QueryUrl(pocsUrl: PWideChar; dwFlags: Integer; var lpSTATURL: STATURL): HResult; stdcall;
    function BindToObject(pocsUrl: PWideChar; var riid: TIID; out ppvOut: Pointer): HResult; stdcall;
    function EnumUrls(out ppenum: IEnumSTATURL): HResult; stdcall;
  end;

  IUrlHistoryStg2 = interface(IUrlHistoryStg)
    ['{AFA0DC11-C313-11D0-831A-00C04FD5AE38}']
    function AddUrlAndNotify(pocsUrl: PWideChar; pocsTitle: PWideChar; dwFlags: Integer;
      fWriteHistory: Integer; var poctNotify: Pointer;
      const punkISFolder: IUnknown): HResult; stdcall;
    function ClearHistory: HResult; stdcall;
  end;

  IUrlHistoryNotify = interface(IOleCommandTarget)
    ['{BC40BEC1-C493-11d0-831B-00C04FD5AE38}']
  end;


procedure ClearIEHistory;
const
  CLSID_CUrlHistory : TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
var
  ie : IUrlHistoryStg2;
begin
  ie := CreateComObject(CLSID_CUrlHistory) as IUrlHistoryStg2;
  ie.ClearHistory;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  STATURL = record
    cbSize: DWORD;
    pwcsUrl: DWORD;  // <--
    pwcsTitle: DWORD; // <--
    ftLastVisited: FILETIME;
    ftLastUpdated: FILETIME;
    ftExpires: FILETIME;
    dwFlags: DWORD;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.Button2Click(Sender: TObject);
const
  CLSID_CUrlHistory: TGUID = '{3C374A40-BAE4-11CF-BF7D-00AA006946EE}';
var
  r: TStatURL;
  Enum: IEnumStatUrl;
  X: Integer;
  Row: Integer;
  I: IUrlHistoryStg2;
begin
  StringGrid1.Cells[0, 0] := 'Last Visited';
  StringGrid1.Cells[1, 0] := 'Title';
  StringGrid1.Cells[2, 0] := 'Url';
  StringGrid1.Cells[3, 0] := 'Last Updated';
  StringGrid1.Cells[4, 0] := 'Expires';
  Row := 0;
  I := CreateComObject(ClsId_CUrlHistory) as IUrlHistoryStg2;
  I.EnumUrls(Enum);
  Enum.SetFilter('http://', 0);
  while enum.next(1, r, @X) = S_OK do
  begin
    Inc(Row);
    StringGrid1.RowCount := Row + 1;
    Stringgrid1.Cells[0, Row] := DateTimeToStr(FileTimeToDateTime(r.ftLastVisited));
    Stringgrid1.Cells[1, Row] := PWideChar(Pointer(r.pwcsTitle));
    Stringgrid1.Cells[2, Row] := PWideChar(Pointer(r.pwcsUrl));
    Stringgrid1.Cells[3, Row] := DateTimeToStr(FileTimeToDateTime(r.ftLastUpdated));
    Stringgrid1.Cells[4, Row] := DateTimeToStr(FileTimeToDateTime(r.ftExpires));
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

  TSTATURL = record
    cbSize: DWORD;
    pwcsUrl: <span style="font-weight: bold">PWideChar</span>;
    pwcsTitle: <span style="font-weight: bold">PWideChar</span>;
    ftLastVisited: FILETIME;
    ftLastUpdated: FILETIME;
    ftExpires: FILETIME;
    dwFlags: DWORD;
  end;