|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Примерно так:
Код:
Uses SHFolder; ... var Path: array [0..MAX_PATH] of Char; PersonalPath: String; ... SHGetFolderPath(0,CSIDL_PERSONAL,0,SHGFP_TYPE_CURRENT,@Path[0]); PersonalPath := Path; ... Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#17
|
|||
|
|||
А на исходнику от popyurv можеш показать, просто я недавно в Delphi...сорри за такие просьбы
Последний раз редактировалось L.Morgan, 05.05.2009 в 00:21. |
#18
|
||||
|
||||
Сначала сами попробуйте, а если что не получиться, то код в студию подскажем, а делать за вас - это вам в раздел работа надо заглянуть.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#19
|
|||
|
|||
Код:
var UserName : string; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then ('C:\Documents and Settings\'+Copy(UserName,1,UserNameLen - 1)+'\Application Data\MyProject\report.txt') end; Последний раз редактировалось Admin, 05.05.2009 в 13:52. |
#20
|
||||
|
||||
Где-то видел, был пример "GetCurrentUserName", щас попробую вытащить... Помоему, это в реестр надо залезть. Щас, поищу.
Принципиально, ничего не меняется, только параметр "FileName" переносим в var и заменяем этой функцией. Счас, найду... ЗЫ: Теги куда делись? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 05.05.2009 в 13:45. |
#21
|
||||
|
||||
Всё проще, чем кажется.
Код:
function GetUserFromWindows: string; var UserName : string; UserNameLen : Dword; begin UserNameLen := 255; SetLength(userName, UserNameLen); if GetUserName(PChar(UserName), UserNameLen) then Result := Copy(UserName,1,UserNameLen - 1) else Result := 'Unknown'; end; ========= Сначала ответил, потом посмотрел... Кое-кто покопался в Delphi World, не так ли? Статья от туда. Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 05.05.2009 в 13:52. |
#22
|
||||
|
||||
Если намек на предложеный мной код, то я на авторство и не претендую, нельзя же все помнить.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#23
|
|||
|
|||
Ну не могу я прописать путь:
Код:
C:\Documents and Settings\'+Copy(UserName,1,UserNameLen - 1)+'\Application Data\MyProject\report.txt Может поможете в последний раз, што бы ету тему мона было закрыть... Пропишыте код в исходник. P.S: Сорри што морочу голову. Знаю што туплю. Без критики, ввойдите в положение... |
#24
|
||||
|
||||
ТАКОЙ вариант решения тебя устраивает?
Тут есть один нюанс, если винда установлена не на C, а скажем, как у меня, на D... ты что делать будешь? Оставайтесь хорошими людьми... VK id2634397, ds [at] phoenix [dot] dj Последний раз редактировалось PhoeniX, 06.05.2011 в 07:14. |
#25
|
|||
|
|||
Пасиб большое!!! Выручил!!! НУ если не на диску "С" то я ничего делать небуду. Отчеты тогда будут в ручную перекатывать на мыло
|