안녕하세요. 최용일입니다.

레지스트리보다는 Shell API함수를 이용하세요...

uses ......, ShlObj;

var
    DesktopPath: array[0..255] of Char;
    ItemIDList: PItemIDList;
begin
    SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, ItemIDList);
    SHGetPathFromIDList(ItemIDList, DesktopPath);
    Edit1.Text := DesktopPath;
end;

^^ 항상 즐코하세요...

샬롬~


ㅡㅡ; 98에선 테스트해보니까..바탕 화면 이라고만 나오네여..ㅡㅡ;
왜그러는지??

그럼..즐프~


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  StdCtrls, Dialogs,
  ShellCtrls,    //TShellFolder
  ShlObj,        // PItemIDList
  ComObj;        //OleCheck


type
  TForm1 = class(TForm)
    Button4: TButton;
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button4Click(Sender: TObject);
var
   DesktopFolder: TShellFolder;
   DesktopPIDL: PItemIDList;

   function DesktopShellFolder: IShellFolder;
   begin
     OleCheck(SHGetDesktopFolder(Result));
   end;

begin
   DesktopFolder := nil;
   try
      SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, DesktopPIDL);
      if DesktopPIDL <> nil then DesktopFolder := TShellFolder.Create(nil, DesktopPIDL, DesktopShellFolder);
      if (DesktopFolder <> nil) then showmessage(DesktopFolder.PathName);
   finally
      DesktopFolder.Free;
   end;
end;

end.

98 HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

xp HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

이런 이런 레지스트리에 저장이 되어 있네여..ㅋㅋㅋ
아마도 다른 버젼의 os에도 같은 경로가 아닐런지..^^