Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

Функция CreateProcessWithLogonW   Найти похожие ветки 

 
SergeyGood ©   (2005-09-15 12:19) [0]

Пытаюсь запустить прогу функцией CreateProcessWithLogonW, из-под другого пользователя.
 
 Код такой:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,
Dialogs, StdCtrls, shellapi, System.ComponentModel;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
function CreateProcessWithLogonW(user:pwidechar; domain:pwidechar;
passw:pwidechar; flags: DWORD; lpApplicationName: PwideChar; lpCommandLine: PwideChar;
 dwCreationFlags: DWORD; lpEnvironment: Pointer;
 lpCurrentDirectory: PWideChar; const lpStartupInfo: TStartupInfo;
 var lpProcessInformation: TProcessInformation): BOOL; stdcall;external "advapi32.dll" name "CreateProcessWithLogonW";

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   si: TSTARTUPINFO;
   pif: PROCESS_INFORMATION;
begin
 si.cb := SizeOf(tstartupinfo);
  si.dwFlags  := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWDEFAULT;
  si.lpReserved := nil;
  si.lpDesktop := nil;
  si.lpTitle := nil;

 CreateProcessWithLogonW("test", nil, "password", 0,
    nil, "notepad.exe",0, nil, nil, si, pif);
end;

Говорит
[Warning] Unit1.pas(33): File not found:"Unit1.dfm"
[Error] Unit1.pas(47): Unsafe pointer variables, parametters or constsonly allowed in unsafe procedure

Имеется форма с кнопкой, а этот код я вставляю вместо кода по умолчанию.

Объясните чем лечить, или поделитесь исходником плиз.


 
Игорь Шевченко ©   (2005-09-15 12:44) [1]


> [Error] Unit1.pas(47): Unsafe pointer variables, parametters
> or constsonly allowed in unsafe procedure


Нам предлагается посчитать строки в посте ?


 
Игорь Шевченко ©   (2005-09-15 12:45) [2]

По сабжу
http://delphimaster.net/view/4-1126694897/



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.191 c
2-1129563459
Rasher
2005-10-17 19:37
2005.11.13
Вопрос о всплывающих окнах


2-1129911328
Volf_555
2005-10-21 20:15
2005.11.13
Выделение подстроки из строки


2-1129849272
DimonS
2005-10-21 03:01
2005.11.13
Кто работал с FastReport? Есть вопросик.


1-1129901816
Андрей Жук
2005-10-21 17:36
2005.11.13
Ошибка объявления класса


4-1126372344
illy
2005-09-10 21:12
2005.11.13
Запуск закрытие приложений