Надо программно изменить PATH для самого главного пользователя универчально в WinXP\2003\98\Vista.

В смысле поменять местоположение папки с аккаунтом админа? Уневирсально не выйдет (хотя бы потому что по-умолчанию путь для их хранения разный).

Это сообщение отредактировал(а) Kostyaxp - 12.3.2007, 18:30

Ну, чтобы после перезагрузки после команды "set PATH", я видел, то же, что установил перед перезагрузкой без дополнительных телодвижений.

Ну в 98м я для этого меняю autoexec.bat, в XP, 2000, 2003, ... меняю в реестре, а надо как-то программно найти общее решение. Делаю инсталляшку своей АИС, надо. Другие же программы делают.

Исходя из данной цитаты  я могу предположить, что данный метод будет в равной степени работать для всех существющих версий windows

Это сообщение отредактировал(а) Tectoder - 16.3.2007, 20:22

Посмотрим

Добавлено @ 20:03 
Не уже ли, если поменять в реестре 95\98 поменять PATH, то и в autoexec.bat изменится?

В 98м пути HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\Session Manager\Environment не существует.

Короче, раз ни кто ни чего не знает, пришлось самому справляться:
[code=perl]use IO::Handle;
use Win32;
use Win32::Registry;

$|=1;

sub registryValue {
    my($path, $rh, $result)=shift;
    ${'::'.$path}->Open(shift, $rh) && $rh->QueryValueEx(shift, undef, $result);
    +$result
}

sub addPath {
    my($str, $paths, $i)=(shift, shift, shift);
    $paths->{$_}=++$$i foreach
        grep /\S/, map{s{^"(.*?)"$}{$1}i;+exists $paths->{+uc} ? uc : $_}split/\s*;\s*/, $str;
}

sub setPath {
    my($path, $CRLF, $i)=(shift, "\r\n");
    if((&Win32::GetOSVersion)[4]<2) {
        my$file=(($ENV{WINDIR} || $ENV{WINBOOTDIR})=~m{^([A-Z]:)}i)[0].'\AUTOEXEC.BAT';
        open my$fh, '<'.$file;binmode $fh;my@in=<$fh>;close $fh;
        open my$fh, '>'.$file;binmode $fh;
        foreach(@in) {
            if(/^\s*SET\s+PATH\s*=\s*(.*?)\s*$/i) {
                &addPath($1, $path, \$i)
            } else {
                $fh->print(/^\s*(.*?)\s*$/?$1:$_, $CRLF)
            }
        }
        $fh->print('SET PATH=', join(';', map{s{\\?$}{}g;'"'.$_.'"'}
                    sort{$path->{$a}<=>$path->{$b}}keys %$path), $CRLF);
        close $fh;
    } else {
        my($drv, $dir, $node, $rh)=(
            'HKEY_LOCAL_MACHINE', 'SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'PATH'
        );
        &addPath(&registryValue($drv, $dir, $node), $path, \$i);
        ${+'::'.$drv}->Open($dir, $rh);
        $rh->SetValueEx(
            $node, undef, REG_SZ,
            join(';', map{s{\\?$}{}g;'"'.$_.'"'}sort{$path->{$a}<=>$path->{$b}}keys %$p

Это сообщение отредактировал(а) tishaishii - 18.3.2007, 12:36