|
 | |  |
| Главная » 2011 » Март » 06 » Определяем имя пользователя
19:51 Определяем имя пользователя |
в uses кидаем ShlObj, Shellapi
объявляем функцию
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;
потом в процедуру, например формактив пишем:
procedure TForm1.FormActivate(Sender: TObject); var primer,local,x: string; begin primer:= GetSpecialPath(CSIDL_APPDATA); local:= GetSpecialPath($1c); x:= (primer +'\Opera\Opera\wand.dat'); вот и всё)
|
Категория: Delphi |
Просмотров: 434 |
Добавил: SeM
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
| |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит... Кто знает как сделать чтобы на жесткий жертвы сохранял.. ISQ 606017777
|
 |
 |
| Отзывы Фото
 | |
6 микр. Красивое место.... Старый музей но щас его перенесли... Фотография под горы  Красивое фото!!!  |
 |
|