|
Папкa ЮЗЕРА
|
|
cool1
|
Дата: Воскресенье, 28.11.2010, 12:19 | Сообщение # 1
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
Как найти папку ЮзерА? Типа
Code
C:\Documents and Settings\USER
За помощь ставьте +!
Сообщение отредактировал cool1 - Воскресенье, 28.11.2010, 12:28
|
| |
|
|
|
|
|
gravitas
|
Дата: Воскресенье, 28.11.2010, 13:29 | Сообщение # 2
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Функция GetWin
function GetWin(Comand: string): string;
var
buff: array [0 .. $FF] of char;
begin
ExpandEnvironmentStrings(PChar(Comand), buff, SizeOf(buff));
Result := buff;
end;
Использование
showmessage(getwin('%userprofile%'));
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
Сообщение отредактировал gravitas - Воскресенье, 28.11.2010, 13:29
|
| |
|
|
|
|
|
cool1
|
Дата: Воскресенье, 28.11.2010, 13:32 | Сообщение # 3
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
не мне надо так
%UserProfil%\ololololo
%UserProfil% - типа таково
или написать %userprofile%\ololololo
За помощь ставьте +!
Сообщение отредактировал cool1 - Воскресенье, 28.11.2010, 13:34
|
| |
|
|
|
|
|
gravitas
|
Дата: Воскресенье, 28.11.2010, 19:05 | Сообщение # 4
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (cool1)
или написать %userprofile%\ololololo
showmessage(getwin('%userprofile%')+ '\papka');
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
Сообщение отредактировал gravitas - Воскресенье, 28.11.2010, 19:06
|
| |
|
|
|
|
|
dolphin
|
Дата: Воскресенье, 28.11.2010, 20:37 | Сообщение # 5
|
Администратор
Сообщений: 904
Статус: Offline
|
Самый простой способ
var
s : array[0..MAX_PATH] of char;
begin
GetEnvironmentVariable('USERPROFILE',s,MAX_PATH);
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
|
| |
|
|
|
|
|
gravitas
|
Дата: Понедельник, 29.11.2010, 07:31 | Сообщение # 6
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
А чем мой способ не по нраву?)
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
cool1
|
Дата: Понедельник, 29.11.2010, 15:27 | Сообщение # 7
|
|
Участник
Зарегистрирован: 14.07.2010
Группа: Пользователи
Сообщений: 238
Статус: Offline
|
а подскажите самый маленьких и простой способ удаления дериктории и всех под папок и фалов!
За помощь ставьте +!
|
| |
|
|
|
|
|
gravitas
|
Дата: Понедельник, 29.11.2010, 15:32 | Сообщение # 8
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (cool1)
а подскажите самый маленьких и простой способ удаления дериктории и всех под папок и фалов!
Это приказ?)) Вряд ли даже самый маленький код для выполнения этой задачи будет маленьким...
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
|
|
dolphin
|
Дата: Понедельник, 29.11.2010, 21:38 | Сообщение # 9
|
|
Администратор
Сообщений: 904
Статус: Offline
|
Quote (gravitas)
А чем мой способ не по нраву?)
Не в нраве дело а в ресурсах.
Используется тип стринг, замедляющий работу процедуры и занимающий большей объём памяти.
простое удаление -
Доступно только для пользователей
Система: Windows 10 x64, Windows XP
Среды программирования: Delphi 7, Delphi 10 Seattle
Я не профессионал, я всего лишь любитель
Я не вредитель, я всего лишь теоретик
Сообщение отредактировал dolphin - Понедельник, 29.11.2010, 21:43
|
| |
|
|
|
|
|
gravitas
|
Дата: Понедельник, 29.11.2010, 22:33 | Сообщение # 10
|
|
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
|
Quote (dolphin)
Не в нраве дело а в ресурсах. Используется тип стринг, замедляющий работу процедуры и занимающий большей объём памяти.
Как насчет спуститься к нам, простым юзверям) Вам не угодить... 
TheDeduction
Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
|
| |
|
|
|
