Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.18;
Скачать: CL | DM;

Вниз

Переменные окружения   Найти похожие ветки 

 
Snake1977   (2003-07-04 16:56) [0]

Здравствуйте! Подскажите пожалуйста,
как узнать значение переменных окружения, например Path, или Temp?


 
reonid ©   (2003-07-04 17:06) [1]

ExpandEnvironmentStrings


 
Snake1977   (2003-07-04 17:14) [2]

Непонял что такое ExpandEnviromentStrings :)

но можно например Temp получить так
procedure TForm1.Button1Click(Sender: TObject);
Var st:PChar;
( l,st) Непонял что такое ExpandEnviromentStrings :)

но можно например Temp получить так
procedure TForm1.Button1Click(Sender: TObject);
Var st:PChar;
l:Integer;
begin
GetTempPath(l,st);
Label1.Caption:=st;
end;



 
reonid ©   (2003-07-04 17:23) [3]

var
src, dest: string;
BufLen, N: Integer;
begin
src := "%path%";
BufLen := 1000;
SetLength(dest, BufLen);
N := ExpandEnvironmentStrings(@src[1], @dest[1], BufLen);
// в dest получишь результат
// if N > BufLen then нехватило буфера
end;



Страницы: 1 вся ветка

Текущий архив: 2003.09.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
9-58507
dynadan
2003-03-16 23:41
2003.09.18
помогите разобраться


1-58719
Yuraz
2003-09-02 09:01
2003.09.18
Помогите доработать код, ввод Edit только цифр+запятая+backsp


1-58705
Andy BitOff
2003-09-08 15:44
2003.09.18
Цвет


6-58808
leonidus
2003-07-11 11:53
2003.09.18
Отключение щелчков при переходе по ссылкакм в TWebBrowser`е


1-58740
ah
2003-09-07 09:24
2003.09.18
читаю файл для просмотра который пишется этой же программой