VPF::Delphi 5 и Win 2K - Форум программистов

Kagor

Дата 13.12.2003, 01:06 (ссылка)

(нет голосов)

Загрузка ...

Debian user

Профиль
Группа: Экс. модератор
Сообщений: 2946
Регистрация: 28.2.2003
Где: Королевство Кривых

Репутация: 1
Всего: 85

Народ делфи запускает приложения тока с правами админа, а под пользовательским акаунтом не в какую. Где-то видел решение ентой проблемы, но не помню где

, если кто знает, как её решить не могли бы подсказать.

--------------------

Disassemble Your life and get the key!

December

Дата 13.12.2003, 01:54 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Если приложение использует работу с реестром и т.п., то права админа нужны, и дело здесь не в Дельфи. Вот как можно программно запустить процесс от имени админа:

Код

program RightsUp;

{$APPTYPE CONSOLE}

{uses
  SysUtils;}
uses windows;
const
aSrv  = 'HOMECOMP';


var
tmpArr:array of byte;
si: TSTARTUPINFO;
pi: TProcessInformation;
aPass:string;
pName:string;
aName:string;
TheKey:integer;

function CreateProcessWithLogonW(
UserName, Domain, Password: WideString;
LogonFlag: dWord;
tmpArr,CmdLine: WideString;
CrtFlag: dWord;
Env: pointer;
CurentDir: WideString;
StartInfo, ProcInfo: Pointer):boolean; stdcall; external 'advapi32.dll';

procedure InvertBack(var gStr:string; gArr:array of byte);
var
  i:integer;
  b:byte;
begin
    gStr:='';
    for i:=0 to length(gArr)-1 do
        begin
        b:=gArr[i] xor TheKey;
        gStr:=gStr+chr(b);
        end;{for}
end;{InvertBack}


procedure SetAllUp;
begin
SetLength(tmpArr,29);
tmpArr[0]:=127;
tmpArr[1]:=2;
tmpArr[2]:=100;
tmpArr[3]:=127;
tmpArr[4]:=89;
tmpArr[5]:=85;
tmpArr[6]:=93;
tmpArr[7]:=75;
tmpArr[8]:=100;
tmpArr[9]:=122;
tmpArr[10]:=84;
tmpArr[11]:=77;
tmpArr[12]:=93;
tmpArr[13]:=107;
tmpArr[14]:=80;
tmpArr[15]:=81;
tmpArr[16]:=94;
tmpArr[17]:=76;
tmpArr[18]:=100;
tmpArr[19]:=90;
tmpArr[20]:=75;
tmpArr[21]:=80;
tmpArr[22]:=81;
tmpArr[23]:=94;
tmpArr[24]:=76;
tmpArr[25]:=22;
tmpArr[26]:=93;
tmpArr[27]:=64;
tmpArr[28]:=93;
TheKey:=56;
InvertBack(pName,tmpArr);
SetLength(tmpArr,8);
tmpArr[0]:=124;
tmpArr[1]:=93;
tmpArr[2]:=91;
tmpArr[3]:=93;
tmpArr[4]:=85;
tmpArr[5]:=90;
tmpArr[6]:=93;
tmpArr[7]:=74;
InvertBack(aName,tmpArr);
SetLength(tmpArr,9);
tmpArr[0]:=72;
tmpArr[1]:=74;
tmpArr[2]:=87;
tmpArr[3]:=91;
tmpArr[4]:=93;
tmpArr[5]:=92;
tmpArr[6]:=77;
tmpArr[7]:=74;
tmpArr[8]:=93;
InvertBack(aPass,tmpArr);
end;{SetAllUp}


begin
ZeroMemory(@si, sizeof(si));
si.cb := sizeof(si);
SetAllUp;
CreateProcessWithLogonW(aName,aSrv,aPass,1,pName,pName,0, nil,'',@si,@pi);
end.

--------------------

Для друзей с винграда - скидки на разработку сайтов

December

Дата 13.12.2003, 01:56 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Блин, наверно, немного непонятно.
Массивы - это чтобы юзверь не смог увидеть в екзешнике данные.
Можно их не шифровать, а сделать напрямую.
Я это переделал с чьего-то примера на этом же форуме - можешь поискать.

--------------------

Для друзей с винграда - скидки на разработку сайтов

Kagor

Дата 13.12.2003, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Debian user

Профиль
Группа: Экс. модератор
Сообщений: 2946
Регистрация: 28.2.2003
Где: Королевство Кривых

Репутация: 1
Всего: 85

Цитата

Если приложение использует работу с реестром и т.п., то права админа нужны, и дело здесь не в Дельфи.

Дело именно в Делфи т.к. она не запускает (не компилирует) любое приложение, даже пустую форму которая создается при запуске.

--------------------

Disassemble Your life and get the key!

Kagor

Дата 13.12.2003, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Debian user

Профиль
Группа: Экс. модератор
Сообщений: 2946
Регистрация: 28.2.2003
Где: Королевство Кривых

Репутация: 1
Всего: 85

Проинсталлировал делфи под акаунтом пользователя, теперь он и запускает приложения и компилирует без проблем.

--------------------

Disassemble Your life and get the key!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »