Где сохранить ini зависимого файла к машине (не пользователь) на окнах

Для XP Windows предоставляет SHGetFolderPath () для получения известного местоположения. CSIDL, который вы ищете, - это CSIDL_COMMON_APPDATA , описываемый как:

Каталог файловой системы, содержащий данные приложения для всех пользователей. Типичный путь - «C: \ Documents and Settings \ All Users \ Application Data» . Эта папка используется для данных приложения, не зависящих от пользователя. Например, приложение может хранить словарь проверки орфографии, базу данных клипартов или файл журнала в папке CSIDL_COMMON_APPDATA . Эта информация не будет перемещаться и доступна любому, кто использует компьютер.

Для Vista и более поздних версий она была заменена на SHGetKnownFolderPath () , хотя SHGetFolderPath () по-прежнему доступна как функция оболочки для этого. Если вы используете настоящий вызов Vista, вам следует использовать FOLDERID_ProgramData вместо CSIDL_COMMON_APPDATA .

Эта ссылка здесь , кажется, показывает способ сделать это.

Похоже, что все сводится к следующему (относитесь к этому осторожно, я не так хорошо знаю Delphi):

function ShGetKnownFolderPath (
    const rfid:   TGUID;
    dwFlags:      DWord;
    hToken:       THandle;
    out ppszPath: PWideChar): HResult;
var
    Shell: HModule;
    Fn: TShGetKnownFolderPath;
begin
    Shell := LoadLibrary ('shell32.dll');
    Win32Check(Shell <> 0);
    try
        @Fn := GetProcAddress (Shell, 'SHGetKnownFolderPath');
        Win32Check (Assigned (Fn));
        Result := Fn (rfid, dwFlags, hToken, ppszPath);
    finally
        FreeLibrary (Shell);
    end;
end;

function GetKnownFolderPath (
    const rfid: TGUID;
    dwFlags:    DWord;
    hToken:     THandle): WideString;
var
    buffer: PWideChar;
    ret: HResult;
begin
    ret :=ShGetKnownFolderPath (rfid, dwFlags, hToken, buffer);
    OleCheck (ret);
    try
        Result := buffer;
    finally
        CoTaskMemFree (buffer);
    end;
end;

На этой странице содержится список всех CSIDL _ * и значения FOLDERID _ * . Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

вам следует использовать FOLDERID_ProgramData вместо CSIDL_COMMON_APPDATA .

Эта ссылка здесь , кажется, показывает способ сделать это.

Кажется, все сводится к это (относитесь к этому осторожно, я не очень хорошо знаю Delphi):

function ShGetKnownFolderPath (
    const rfid:   TGUID;
    dwFlags:      DWord;
    hToken:       THandle;
    out ppszPath: PWideChar): HResult;
var
    Shell: HModule;
    Fn: TShGetKnownFolderPath;
begin
    Shell := LoadLibrary ('shell32.dll');
    Win32Check(Shell <> 0);
    try
        @Fn := GetProcAddress (Shell, 'SHGetKnownFolderPath');
        Win32Check (Assigned (Fn));
        Result := Fn (rfid, dwFlags, hToken, ppszPath);
    finally
        FreeLibrary (Shell);
    end;
end;

function GetKnownFolderPath (
    const rfid: TGUID;
    dwFlags:    DWord;
    hToken:     THandle): WideString;
var
    buffer: PWideChar;
    ret: HResult;
begin
    ret :=ShGetKnownFolderPath (rfid, dwFlags, hToken, buffer);
    OleCheck (ret);
    try
        Result := buffer;
    finally
        CoTaskMemFree (buffer);
    end;
end;

На этой странице содержится список всех CSIDL _ * и FOLDERID _ * ценности. Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

вам следует использовать FOLDERID_ProgramData вместо CSIDL_COMMON_APPDATA .

Эта ссылка здесь , кажется, показывает способ сделать это.

Кажется, все сводится к это (относитесь к этому осторожно, я не очень хорошо знаю Delphi):

function ShGetKnownFolderPath (
    const rfid:   TGUID;
    dwFlags:      DWord;
    hToken:       THandle;
    out ppszPath: PWideChar): HResult;
var
    Shell: HModule;
    Fn: TShGetKnownFolderPath;
begin
    Shell := LoadLibrary ('shell32.dll');
    Win32Check(Shell <> 0);
    try
        @Fn := GetProcAddress (Shell, 'SHGetKnownFolderPath');
        Win32Check (Assigned (Fn));
        Result := Fn (rfid, dwFlags, hToken, ppszPath);
    finally
        FreeLibrary (Shell);
    end;
end;

function GetKnownFolderPath (
    const rfid: TGUID;
    dwFlags:    DWord;
    hToken:     THandle): WideString;
var
    buffer: PWideChar;
    ret: HResult;
begin
    ret :=ShGetKnownFolderPath (rfid, dwFlags, hToken, buffer);
    OleCheck (ret);
    try
        Result := buffer;
    finally
        CoTaskMemFree (buffer);
    end;
end;

Эта страница предоставляет список всех CSIDL _ * и FOLDERID _ * ценности. Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

Похоже, все сводится к следующему (относитесь к этому осторожно, я не очень хорошо знаю Delphi):

function ShGetKnownFolderPath (
    const rfid:   TGUID;
    dwFlags:      DWord;
    hToken:       THandle;
    out ppszPath: PWideChar): HResult;
var
    Shell: HModule;
    Fn: TShGetKnownFolderPath;
begin
    Shell := LoadLibrary ('shell32.dll');
    Win32Check(Shell <> 0);
    try
        @Fn := GetProcAddress (Shell, 'SHGetKnownFolderPath');
        Win32Check (Assigned (Fn));
        Result := Fn (rfid, dwFlags, hToken, ppszPath);
    finally
        FreeLibrary (Shell);
    end;
end;

function GetKnownFolderPath (
    const rfid: TGUID;
    dwFlags:    DWord;
    hToken:     THandle): WideString;
var
    buffer: PWideChar;
    ret: HResult;
begin
    ret :=ShGetKnownFolderPath (rfid, dwFlags, hToken, buffer);
    OleCheck (ret);
    try
        Result := buffer;
    finally
        CoTaskMemFree (buffer);
    end;
end;

На этой странице содержится список всех CSIDL _ * и FOLDERID _ * значения. Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

Похоже, все сводится к следующему (относитесь к этому осторожно, я не очень хорошо знаю Delphi):

function ShGetKnownFolderPath (
    const rfid:   TGUID;
    dwFlags:      DWord;
    hToken:       THandle;
    out ppszPath: PWideChar): HResult;
var
    Shell: HModule;
    Fn: TShGetKnownFolderPath;
begin
    Shell := LoadLibrary ('shell32.dll');
    Win32Check(Shell <> 0);
    try
        @Fn := GetProcAddress (Shell, 'SHGetKnownFolderPath');
        Win32Check (Assigned (Fn));
        Result := Fn (rfid, dwFlags, hToken, ppszPath);
    finally
        FreeLibrary (Shell);
    end;
end;

function GetKnownFolderPath (
    const rfid: TGUID;
    dwFlags:    DWord;
    hToken:     THandle): WideString;
var
    buffer: PWideChar;
    ret: HResult;
begin
    ret :=ShGetKnownFolderPath (rfid, dwFlags, hToken, buffer);
    OleCheck (ret);
    try
        Result := buffer;
    finally
        CoTaskMemFree (buffer);
    end;
end;

На этой странице содержится список всех CSIDL _ * и FOLDERID _ * значения. Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.

Имейте в виду, что вы должны использовать эти функции и для ваших пользовательских данных, а не для жестко заданных значений, таких как "C: \ Documents and Settings \ \ Application Data \" . Возможно, в разных языковых версиях Windows используются разные имена каталогов или пользователи могут свободно перемещать свои области данных.