Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Johny777

Ветеран


Сообщения: 649
Благодарности: 444

Профиль | Отправить PM | Цитировать


портировал с делфи интересную функцию ( GetEnvironmentVariable(...) ), кому надо забирайте:

читать дальше »
Код: Выделить весь код
[code]
#ifdef UNICODE
    #define A "W"
#else
    #define A "A"
#endif

//  Environment Variables:

//  ALLUSERSPROFILE
//  APPDATA
//  BDS
//  CLIENTNAME
//  CommonProgramFiles
//  COMPUTERNAME
//  ComSpec
//  Cor_Debugging_Control_424242
//  DBCONFIG
//  DBROOT
//  DBWORK
//  HOMEDRIVE
//  HOMEPATH
//  INCLUDE
//  LIB
//  LOGONSERVER
//  NUMBER_OF_PROCESSORS
//  OS_ROOTDIR
//  OS_TMPDIR
//  OS
//  Path
//  PATHEXT
//  PROCESSOR_ARCHITECTURE
//  PROCESSOR_IDENTIFIER
//  PROCESSOR_LEVEL
//  PROCESSOR_REVISION
//  ProgramFiles
//  SESSIONNAME
//  SystemDrive
//  SystemRoot
//  TEMP
//  TMP
//  USERDOMAIN
//  USERNAME
//  USERPROFILE
//  windir

function GetEnvironmentVariable(lpName, lpBuffer: String; nSize: DWORD): DWORD; external 'GetEnvironmentVariable{#A}@kernel32.dll stdcall';

function GetEnvVar(const VariableName: String): String;
var
    Len: DWORD;
begin
    Len := GetEnvironmentVariable(VariableName, '', 0);
    if Len > 0 then
    begin
        SetLength(Result, Len);
        GetEnvironmentVariable(VariableName, Result, Len);
    end;
end;


procedure InitializeWizard();
begin
    MsgBox(GetEnvVar('PROCESSOR_IDENTIFIER'), mbInformation, MB_OK);
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:56, 09-05-2013 | #410