|
Qubert
|
Дата: Понедельник, 23.01.2012, 21:54 | Сообщение # 1
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
|
Здравствуйте1
Подскажите пожалуйста: как поменять атрибут файла, который находится в директории рабочий стол или в директории downloads (та папка, которая идет через пользователя)!
я пробовал FileSetAttr(GetEnvironmentVariable('Desktop')+'Project1.exe',2);
но ничего не получается...пробовал менять название на русский - эффект, к сожалению, тот же!
Спасибо!
Буду очень благодарен за ответ! |
| |
|
|
|
dolphin
|
Дата: Понедельник, 23.01.2012, 22:33 | Сообщение # 2
|
Администрация
Группа: Администраторы
Сообщений: 800
Статус: Offline
|
С правами администратора запускать пробовали?
Я не профессионал, я всего лишь любитель.
Я не вредитель, я всего лишь теоретик.
|
| |
|
|
|
Qubert
|
Дата: Понедельник, 23.01.2012, 22:39 | Сообщение # 3
|
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
|
а это можно осуществить с помощью самого Делфи?
или именно требуется менять на админа ..? |
| |
|
|
|
gravitas
|
Дата: Понедельник, 23.01.2012, 22:40 | Сообщение # 4
|
Первый помощник DelfCode.Ru
Группа: Модераторы
Сообщений: 348
Статус: Offline
|
Quote (Qubert)
я пробовал FileSetAttr(GetEnvironmentVariable('Desktop')+'Project1.exe',2);
К десктопу так просто путь не получить. Я тут в соседней теме функцию кинул:
Code
function GetSpecialPath(CSIDL: word): string;
type
gPath = function(hwndOwner: HWND; lpszPath: PAnsiChar; nFolder: Integer; fCreate: BOOL): BOOL; stdcall;
var
s: String;
GetPath: gPath;
begin
@GetPath:=GetProcAddress(LoadLibrary('shell32.dll'), 'SHGetSpecialFolderPathA');
SetLength(s, MAX_PATH);
if not GetPath(0, PChar(s), CSIDL, true)
then s:=GetSpecialPath($001a);
result:=PChar(s);
end;
Т.е. ваш код будет выглядеть так:
Code
FileSetAttr(GetSpecialPath($0000)+'\Project1.exe',2);
Обновил код, была ошибка.
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
Qubert
|
Дата: Понедельник, 23.01.2012, 22:50 | Сообщение # 5
|
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
|
Круто! Больше нечего сказать!
сам бы просто бы не ....мягко говоря...не смог бы!
Спасибо большое!
а если в директорию C:\Users\User\Downloads...что изменится? не подскажете? |
| |
|
|
