Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 06.01.2010, 21:45   #1
Betty
Форумчанин
 
Регистрация: 19.04.2009
Сообщений: 76
Репутация: 10
Вопрос Как узнать имя юзера

Здравствуйте. Помогите мне пожалуйста.
c:\Users\Имя пользователя\AppData\
Как узнать «Имя пользователя» чтобы перейти по ссылке.
Проблема в том что на всех компьютерах имена разные
Betty вне форума   Ответить с цитированием
Старый 06.01.2010, 21:53   #2
raxp
Профессионал
 
Регистрация: 29.09.2009
Сообщений: 9,734
Репутация: 3006
По умолчанию

в delphi есть возможность получить пути к спецпапкам (поиск по форуму)...
Код:

const CSIDL_APPDATA = $001a;

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := GetSpecialPath(CSIDL_APPDATA);
  result := PChar(s);
end;

собственно, загляните в модуль- ShlObj.
__________________
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума   Ответить с цитированием
Старый 06.01.2010, 21:54   #3
Kotofff
Профессионал
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Адрес: Россия. Кубань.
Сообщений: 1,916
Репутация: 1296
По умолчанию

К примеру, есть такая функция получения пути к системным папкам :
Код:

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Ее аргумент - в прилагаемом файле или тут : http://www.delphilab.ru/content/view/160/85/
Тебя интересует аргумент : CSIDL_APPDATA эквивалент которому число $001a.

raxp, я не специально. Прости !
Вложения
Тип файла: txt CSIDL.txt (6.8 Кб, 20 просмотров)
__________________
Кому iPhone и Swarovski, кому Афон и Саровский...

Последний раз редактировалось Kotofff; 06.01.2010 в 21:56.
Kotofff вне форума   Ответить с цитированием
Старый 06.01.2010, 22:18   #4
Betty
Форумчанин
 
Регистрация: 19.04.2009
Сообщений: 76
Репутация: 10
По умолчанию

извиняюсь за тупость.
а как её вызвать, а то s=''
Betty вне форума   Ответить с цитированием
Старый 07.01.2010, 11:50   #5
Kotofff
Профессионал
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Адрес: Россия. Кубань.
Сообщений: 1,916
Репутация: 1296
По умолчанию

Пропиши ее в секции implementation главного модуля своей программы и просто используй ...
Код:

uses ShlObj; // Должно присутствовать обязательно!!!
......

......

var
  Form1: TForm1;

implementation
{$R *.dfm}

function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

.....

.....

И где-нибудь далее в модуле :
Код:

s := GetSpecialPath(26);

// 26 = $001a и равно CSIDL_APPDATA - той самой константе которая описана в ShlObj.pas (как сказал raxp )
__________________
Кому iPhone и Swarovski, кому Афон и Саровский...
Kotofff вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как узнать имя button BuT@JL Общие вопросы Delphi 7 19.08.2009 10:42
Как узнать имя залогинившегося пользователя? Stilet JavaScript, Ajax 5 13.08.2009 23:02
Узнать имя запущенного браузера Killer_djon Общие вопросы Delphi 13 28.04.2009 16:01
Как узнать имя кнопки? LeGAl Microsoft Office Excel 1 10.03.2009 01:04
Как узнать имя файла??? Shurik Hacker Работа с сетью в Delphi 3 20.11.2007 18:06


16:43.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru