Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c