Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 июня!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

АРХИВ ФОРУМА eXeL@B
https://exelab.ru/f/

   

EGOiST[TSRh] профили вот надо открыть такую папку - C:


EGOiST[TSRh] профили вот надо открыть такую папку - C:\Documents and Settings\xxx\Application Data.
есть такое апи? конечно я понимаю что можно просто узнать на каком диске стоит винда..потом имя юзера и т.д. но мне надо чтоб это работало и в 9x.
конечно опять же можно узнать какая винда стоит и от этого исходить. Но всетаки есть такая Апи?
SLV :: На каком диске стоит винда:
function GWD:string;
var PC:PChar;
begin
GetMem(PC,100);
GetWindowsDirectory(PC,100);
Result:=PC;
FreeMem(PC);
end;
Имя юзверя по-моему также, только вместо GetWindowsDirectory - GetUserName.

TOR :: Используй переменные среды.

SLV :: function GetTempPath(nBufferLength: DWORD; lpBuffer: PChar): DWORD; stdcall;

P.S. Delphi, windows.pas

WELL :: В реестре бери из TOR пишет:
цитата:
Используй переменные среды.


Может и не прокатить. У меня например там руками исправлено.
EGOiST[TSRh]
HKEY_CURRENT_USER\Software\Microsoft\GDIPlus
строковый параметр FontCachePath

EGOiST[TSRh] :: WELL пишет:
цитата:
HKEY_CURRENT_USER\Software\Microsoft\GDIPlus
строковый параметр FontCachePath


нее у меня в реестре вабще нет ключа GDIPlus...

TOR пишет:
цитата:
Используй переменные среды.


в переменных тока temp и windir..

а, вабще, не подскажите аналогичную папку в 9x ..куда там софт свою х-ю пишет

SLV :: EGOiST[TSRh] пишет:
цитата:
в переменных тока temp и windir..


Ещё есть TMP.

WELL :: EGOiST[TSRh] пишет:
цитата:
а, вабще, не подскажите аналогичную папку в 9x ..куда там софт свою х-ю пишет


C:\Windows\Application Data

TOR :: У меня вообще такого ключа нет :)

WELL :: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Explorer\Shell Folders
ключ Common AppData

EGOiST[TSRh] :: даужж.. наверно придется исходить от винды..

fuck it :: EGOiST[TSRh]
вот зацени :

Function UserName:string;
var buffer:array[0..255] of char; size:dword;
Begin
size:=256;
if GetUserName(buffer, size) then Result:=buffer
else Result := ’non’
End;

function in9x:boolean;
var VI:TOSVersionInfo;
begin
VI.dwOSVersionInfoSize:=SizeOf(VI);
GetVersionEx(VI);
if VI.dwPlatformID‹›VER_PLATFORM_WIN32_NT then result:=true
else result:=false;
end;

function windir:string;
var pWindowsDir:array [0..255] of Char;
begin
GetWindowsDirectory(pWindowsDir,255);
Result:=StrPas(pWindowsDir);
end;

function GetAppPath:string;
begin
if in9x then result:=windir+’\Application Data\’
else result:=’C:\Documents and Settings\’+UserName+’\Application Data\’;
end;

EGOiST[TSRh] :: хе хе. все за меня сделали . сеньку






   
Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS