[M.A.D.M.A.N.]

Вот еще на всякий случай

Код:

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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82

type   TSystemPath = (spDesktop, spStartMenu,     spPrograms, spStartup, spPersonal, spAppData,     spFonts, spSendTo, spRecent, spFavorites, spCache,     spCookies, spHistory, spNetHood, spPrintHood,     spTemplates, spLocADat, spWindRoot, spWindSys,     spTempPath, spRootDir, spProgFiles, spComFiles,     spConfigPath, spDevicePath, spMediaPath, spWallPaper); ......... function GetSystemPath(SystemPath: TSystemPath): string; var   ph: PChar; begin   with TRegistry.Create do     try       RootKey := HKEY_CURRENT_USER;       OpenKey('\Software\Microsoft\Windows\CurrentVersion\' +         'Explorer\Shell Folders', True);       case SystemPath of         spDesktop: Result   := ReadString('Desktop');         spStartMenu: Result := ReadString('Start Menu');         spPrograms: Result  := ReadString('Programs');         spStartup: Result   := ReadString('Startup');         spPersonal: Result  := ReadString('Personal');         spAppData: Result   := ReadString('AppData');         spFonts: Result     := ReadString('Fonts');         spSendTo: Result    := ReadString('SendTo');         spRecent: Result    := ReadString('Recent');         spFavorites: Result := ReadString('Favorites');         spCache: Result     := ReadString('Cache');         spCookies: Result   := ReadString('Cookies');         spHistory: Result   := ReadString('History');         spNetHood: Result   := ReadString('NetHood');         spPrintHood: Result := ReadString('PrintHood');         spTemplates: Result := ReadString('Templates');         spLocADat: Result   := ReadString('Local AppData');         spWindRoot:           begin             GetMem(ph, 255);             GetWindowsDirectory(ph, 254);             Result := Strpas(ph);             Freemem(ph);           end;         spWindSys:           begin             GetMem(ph, 255);             GetSystemDirectory(ph, 254);             Result := Strpas(ph);             Freemem(ph);           end;         spTempPath:           begin             GetMem(ph, 255);             GetTempPath(254, ph);             Result := Strpas(ph);             Freemem(ph);           end;         spRootDir:           begin             GetMem(ph, 255);             GetSystemDirectory(ph, 254);             Result := (Copy(Strpas(ph), 1, 2));             Freemem(ph);           end;       end;       RootKey := HKEY_LOCAL_MACHINE;       OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', True);       case SystemPath of         spProgFiles: Result := ReadString('ProgramFilesDir');         spComFiles: Result := ReadString('CommonFilesDir');         spConfigPath: Result := ReadString('ConfigPath');         spDevicePath: Result := ReadString('DevicePath');         spMediaPath: Result := ReadString('MediaPath');         spWallPaper: Result := ReadString('WallPaperDir');       end;     finally       CloseKey;       Free;     end; {  if (Result <> '') and (Result[Length(Result)] <> '\') then     Result := Result + '\';} end;