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:

// "GetLinkDestination" wirst du in ähnlicher Form haben.
// Diese Funktion liefert mir das Ziel der Verknüpfung.
// Aber in "lnkraw" steckt das Ziel auch noch im RAW-Format,
// und "lnkarg" enthält evtl. Parameter
lnk      := GetLinkDestination(ds.cFileName,lnkraw,lnkarg);

// Bevor der Einwand kommt: die API-Funktion, die hinter
// meinem "fileexists" steht, erlaubt auch das Prüfen von
// Ordnern.
fFound   := (lnk <> '') and (fileexists(lnk));

// Wenn das Verknüpfungsziel nun nicht gefunden wurde, ...
if(not fFound) or
// ... oder wenn die LNK-Datei eine Größe von 0 Bytes hat
  (ds.nFileSizeLow = 0) then
begin
  // schauen, ob das Ziel auf einem Wechseldatenträger
  // liegt
  if(not fFound) and
    (GetDriveType(pchar(ExtractFileDrive(lnk) + '\'))
  // unterstützt werden Floppies, Netzlaufwerke und CD-Medien
      in[DRIVE_REMOVABLE,DRIVE_REMOTE,DRIVE_CDROM]) then
  // in dem Fall die nicht vorhandene Verknüpfung als
  // mögliches Problem melden (es ist ja keins mehr, wenn
  // bspw. die richtige CD im Laufwerk liegt)
    LV_ItemInsert(loop,path + '\' + ds.cFileName,
      'nicht verfügbarer Wechseldatenträger')

  // Nein, es ist keine Verknüpfung auf einem Wechsellaufwerk,
  // darum einfach nur das Problem anzeigen
  else
    LV_ItemInsert(loop,path + '\' + ds.cFileName,
      szProblemArray[ds.nFileSizeLow=0]);


  // "szProblemArray" ist ein bool-Array mit den beiden
  // möglichen Fehlern (nicht gefunden, bzw. 0-Byte-Datei).
  // Auf die Weise spare ich mir ein "if"

  // const
  //   szProblemArray   : array[boolean]of string =
  //     ('toter Link','0-Byte-Datei');

end;					

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

//
// Start Menu Cleaner
// inspired by maxk's "Start Menu Cleaner"
// (http://www.delphi-forum.de/viewtopic.php?t=17757)
// (c) 2003, Mathias Simmack
//