[NumLock]

был вариант сменить текущий каталог функцией SetCurrentDir (API аналог SetCurrentDirectory). получить каталог рабочего стола можно функцией:

Код:

uses
  ShlObj,

function DesktopDirectory: String;
var
  pidl: PItemIDList;
  szPath: array [0..MAX_PATH-1] of Char;
begin
  Result:='';
  SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOPDIRECTORY, pidl);
  if pidl<>nil then
  begin
    SHGetPathFromIDList(pidl, szPath);
    Result:=String(szPath);
    GlobalFreePtr(pidl);
  end;
end;

  SetCurrentDir(DesktopDirectory);
  OpenDialog1.FileName:='';
  OpenDialog1.InitialDir:=DesktopDirectory;
  if OpenDialog1.Execute then