EugeneX MiniWeb

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== Быстрые функции для получения путей до папок ======

==== Папка Windows ====
<code delphi>
function GetWindowsDirectoryP: string;
begin
    SetLength(Result, MAX_PATH);
    SetLength(Result, GetWindowsDirectory(@Result[1], Length(Result)));
end;
</code>

==== Папка пользователя ====
<code delphi>
unit Winapi.ShlObj;
function GetUserProfile: string;
var buffer: array[0..MAX_PATH] of Char;
begin
    Result := '';
    if Succeeded( SHGetFolderPath(0, CSIDL_PROFILE, 0, 0, buffer)) then
        Result := StrPas(buffer);
end;
</code>

==== Рабочий стол пользователя ====
<code delphi>
unit Winapi.ShlObj;
function GetUserProfile: string;
var buffer: array[0..MAX_PATH] of Char;
begin
    Result := '';
    if Succeeded( SHGetFolderPath(0, CSIDL_DESKTOP, 0, 0, buffer)) then
        Result := StrPas(buffer);
end;
</code>

EugeneX MiniWeb

User Tools

Site Tools

Page Tools