윈도우 바탕화면 경로(주소) 값 알아내기

윈도우 바탕화면 경로(주소) 값 알아내기

 

Uses Shlobj

 

function TForm1.GetProgramFilesDir: String;

const

CSIDL_PROGRAM_FILES = $0000;

var

pidl: PItemIDList;

Path: array [0..MAX_PATH-1] of char;

begin

if Succeeded(SHGetSpecialFolderLocation(Application.Handle, CSIDL_PROGRAM_FILES, pidl)) then

begin

if SHGetPathFromIDList(pidl, Path) then

Result := StrPas(path);

end;

end;

 

원하는 폴더 주소를 상수로 설정한다.

CSIDL_DESKTOP = $0000;

CSIDL_PROGRAMS = $0002;

CSIDL_CONTROLS = $0003;

CSIDL_PRINTERS = $0004;

CSIDL_PERSONAL = $0005;

CSIDL_FAVORITES = $0006;

CSIDL_STARTUP = $0007;

CSIDL_RECENT = $0008;

CSIDL_SENDTO = $0009;

CSIDL_BITBUCKET = $000A;

CSIDL_STARTMENU = $000B;

CSIDL_DESKTOPDIRECTORY = $0010;

CSIDL_DRIVES = $0011;

CSIDL_NETWORK = $0012;

CSIDL_NETHOOD = $0013;

CSIDL_FONTS = $0014;

CSIDL_TEMPLATES = $0015;