[NumLock]

Сообщение от PS11011010

getcurrentdir

SetCurrentDirectory было зарезервировано для следующего сообщения, но оно уже не потребуется)))

[Ankor]

Сообщение от NumLock

SetCurrentDirectory было зарезервировано для следующего сообщения, но оно уже не потребуется)))

Почему не потребуются, для меня все стабильно работающие примеры ценны.Так что приводите.

Ещё такой вопрос:
Как сделать, чтобы при вызове OpenDialog открывался рабочий стол?
(на любом компе, на любой системе windows).

[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

[Yurk@]

Код:

OpenDialog1.InitialDir:='%USERPROFILE%\Рабочий Стол';