Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 791

•  TDictionary Custom Sort  5 902

•  Fast Watermark Sources  5 704

•  3D Designer  8 478

•  Sik Screen Capture  6 037

•  Patch Maker  6 482

•  Айболит (remote control)  6 474

•  ListBox Drag & Drop  5 338

•  Доска для игры Реверси  94 953

•  Графические эффекты  6 677

•  Рисование по маске  5 802

•  Перетаскивание изображений  4 862

•  Canvas Drawing  5 236

•  Рисование Луны  4 959

•  Поворот изображения  4 505

•  Рисование стержней  3 188

•  Paint on Shape  2 434

•  Генератор кроссвордов  3 309

•  Головоломка Paletto  2 619

•  Теорема Монжа об окружностях  3 403

•  Пазл Numbrix  2 249

•  Заборы и коммивояжеры  2 910

•  Игра HIP  1 879

•  Игра Go (Го)  1 795

•  Симулятор лифта  2 132

•  Программа укладки плитки  1 860

•  Генератор лабиринта  2 296

•  Проверка числового ввода  1 985

•  HEX View  2 294

•  Физический маятник  1 958

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Запустить процесс в защищенной области другого пользователя



Оформил: DeeCo

uses
   JwaWinBase; ( http://members.chello.nl/m.vanbrakel2/ ) 

//... 

procedure TForm1.Button1Click(Sender: TObject);
 var
    si: STARTUPINFOW;
    pif: PROCESS_INFORMATION;
    res: Bool;
   s: string;
 begin
   //erstmal die StartUpInfoW setzen 
  //set StartUpInfoW first 
  si.cb := SizeOf(startupinfow);
   si.dwFlags  := STARTF_USESHOWWINDOW;
   si.wShowWindow := SW_SHOWDEFAULT;
   si.lpReserved := nil;
   si.lpDesktop := nil;
   si.lpTitle := 'Konsole';

   // dann CreateProcessWithLogonW ausfьhren... 
  // run CreateProcessWithLogonW... 
  res := CreateProcessWithLogonW('Security', 'ArViCor', 'test', LOGON_WITH_PROFILE,
     'c:\win2kas\system32\regedt32.exe', nil
     , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
   if booltostr(res) = '0' then
    begin
     //wenn ein Fehler auftritt, soll der Fehlercode ausgegeben werden 
    //ьber 'net helpmsg ' in der Kommandoeingabeaufforderung 
    //kann dieser entziffert werden 

    //if an error occures, show the error-code 
    //this code can be 'translated' with 'net helpmsg ' on command-prompt 
    str(GetLastError, s);
     ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 +
       'GetLastError: ' + s);
   end;
 end;

 // Verbesserungen gerne als Mail an mich! 




Похожие по теме исходники

Очередность выполнения процессов

Список запущенных процессов

Ожидание завершения процесса

Сообщения между процессами Windows

 

Защита процесса

Информация о процессах

Защита процесса




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте