Дата: Воскресенье, 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
Дата: Воскресенье, 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
Дата: Понедельник, 29.11.2010, 15:32 | Сообщение # 8
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Quote (cool1)
а подскажите самый маленьких и простой способ удаления дериктории и всех под папок и фалов!
Это приказ?)) Вряд ли даже самый маленький код для выполнения этой задачи будет маленьким... TheDeduction Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
Дата: Понедельник, 29.11.2010, 22:33 | Сообщение # 10
Авторитетный
Зарегистрирован: 01.05.2010
Группа: Пользователи
Сообщений: 385
Статус: Offline
Quote (dolphin)
Не в нраве дело а в ресурсах. Используется тип стринг, замедляющий работу процедуры и занимающий большей объём памяти.
Как насчет спуститься к нам, простым юзверям) Вам не угодить... TheDeduction Для ускорения получения ответов на ваши вопросы рекомендуется подкармливание в виде +'ов в рейтинг :)
