Delphi : Страница 5 из 5 : sad-notes

Имя текущего пользователя Windows

02.05.202110.06.2021 Delphi

Получение имени текущего пользователя Windows.

var
  nm: string;
begin
  nm:= GetCurUserName();
  ShowMessage(nm);
end;

1

2

3

4

5

6

var

nm: string;

begin

nm:= GetCurUserName();

ShowMessage(nm);

end;

Проверка прав безопасности на доступ к файлу или папке

02.05.202110.06.2021 Delphi

Функция проверяет наличие разных уровней прав доступа к файлу/папке для текущего пользователя.

var
  path: string;
  level: cardinal;
begin
  path:= 'C:\Program Files';
  level:= FILE_GENERIC_READ;
  if getNTFSRules(path, level) = level then ShowMessage('Чтение разрешено') else ShowMessage('Чтение запрещено') ;
end;

1

2

3

4

5

6

7

8

9

var

path: string;

level: cardinal;

begin

path:= 'C:\Program Files';

level:= FILE_GENERIC_READ;

if getNTFSRules(path, level) = level then ShowMessage('Чтение разрешено') else ShowMessage('Чтение запрещено') ;

end;

Определить разрядность операционной системы

02.05.202110.06.2021 Delphi

Определяет разрядность (32/64-bit) операционной системы.

var
  is64: Boolean;
begin
  is64 := IsOS64bit();
  if is64 = true then ShowMessage('64 бит') else ShowMessage('32 бит');
end;

1

2

3

4

5

6

var

is64: Boolean;

begin

is64 := IsOS64bit();

if is64 = true then ShowMessage('64 бит') else ShowMessage('32 бит');

end;

Получить размер папки

02.05.202127.07.2021 Delphi

Получает размер папки со всем содержимым.

var
  path: string;
  incSubDirs: boolean;
  size: int64;
begin
  path:= 'C:\Program Files';
  incSubDirs:= true;
  size:= 0;
  getDirSize(path, incSubDirs, size);
  ShowMessage(IntToStr(size));
end;

1

2

3

4

5

6

7

8

9

10

11

12

var

path: string;

incSubDirs: boolean;

size: int64;

begin

path:= 'C:\Program Files';

incSubDirs:= true;

size:= 0;

getDirSize(path, incSubDirs, size);

ShowMessage(IntToStr(size));

end;

Получить размер файла

25.04.202110.06.2021 Delphi

Функция получает размер файла. Размер файла может быть более 2 ГБ.

var
  path: string;
  size: int64;
begin
  path:= 'C:\Windows\notepad.exe';
  size:= fileGetSize(path);
  ShowMessage(IntToStr(size) + ' байт');
end;

1

2

3

4

5

6

7

8

9

var

path: string;

size: int64;

begin

path:= 'C:\Windows\notepad.exe';

size:= fileGetSize(path);

ShowMessage(IntToStr(size) + ' байт');

end;

Перевод объема данных в байтах, в другие единицы с форматированием

25.04.202110.06.2021 Delphi

Выводит размер файла в читаемом виде, в указанных или автоматически определяемых единицах.

var
  fileSize: int64;
  precision: integer;
begin
  fileSize:= 8784641646;
  formatBytes(fileSize, sfAuto, 2);
end;

1

2

3

4

5

6

7

var

fileSize: int64;

precision: integer;

begin

fileSize:= 8784641646;

formatBytes(fileSize, sfAuto, 2);

end;

Получить путь к объекту символической ссылки или точки соединения

24.04.202110.06.2021 Delphi

Функция возвращает путь к файлу/папке на которые указывает символическая ссылка (Symbolic link) или точка соединения (Junction Point).

var
  path: string;
  linkTarget: string;
begin
  path:= 'C:\Documents and Settings';
  linkTarget:= SymLinkTarget(path);
  ShowMessage(linkTarget);
end;

1

2

3

4

5

6

7

8

9

var

path: string;

linkTarget: string;

begin

path:= 'C:\Documents and Settings';

linkTarget:= SymLinkTarget(path);

ShowMessage(linkTarget);

end;

Рубрика: Delphi

Имя текущего пользователя Windows

Проверка прав безопасности на доступ к файлу или папке

Определить разрядность операционной системы

Получить размер папки

Получить размер файла

Перевод объема данных в байтах, в другие единицы с форматированием

Получить путь к объекту символической ссылки или точки соединения

Последние записи

Популярные