|
 | |  |
|
определение пути к системной папки ...\Application Data
функция: source: function GetDOSEnvVar(const VarName: string): string; var i: integer; begin Result := ''; try i := GetEnvironmentVariable(PChar(VarName), nil, 0); if i > 0 then begin SetLength(Result, i); GetEnvironmentVariable(Pchar(VarName), PChar(Result), i); end; except Result := ''; end; end; этот код: source: label1.Caption:=GetDOSEnvVar('appdata'); выведет в label путь переменной среды ApplicationData.
|
Категория: DELPHI | Добавил: SeM (29.05.2011)
|
Просмотров: 1005
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
| |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит... Кто знает как сделать чтобы на жесткий жертвы сохранял.. ISQ 606017777
|
 |
 |
| Отзывы Фото
 | |
6 микр. Красивое место.... Старый музей но щас его перенесли... Фотография под горы  Красивое фото!!!  |
 |
|