[Bomj]

Код:

 begin
    FillChar(StartUpInfo,sizeOf(TStartUpInfo),0);
    StartUpInfo.cb :=SizeOf(TStartUpInfo);
    dwCreationFlags:=STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    CreateProcess(nil,PChar(lpApplicationName),Security_Attributes,nil, nil, False,NORMAL_PRIORITY_CLASS, nil, nil,StartUpInfo,ProcessInfo);
  // CreateProcess(pchar('c:\windows\system32\notepad.exe',Security_Attributes,lpProcessAttributes,lpThreadAttributes,nil,nil,FALSE,NORMAL_PRIORITY_CLASS,Nil,Nil,info,pinfo)));
  //WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации
    CloseHandle(ProcessInfo.hThread); // закрываем дескриптор процесса
    CloseHandle(ProcessInfo.hProcess); // закрываем дескриптор потока
  end;

Ругается на 5 строчку([Error] Unit1.pas(44): '(' expected but ',' found) помогите разобратся?

[poli-smen]

Сообщение от Bomj

Код:

 begin
    FillChar(StartUpInfo,sizeOf(TStartUpInfo),0);
    StartUpInfo.cb :=SizeOf(TStartUpInfo);
    dwCreationFlags:=STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    CreateProcess(nil,PChar(lpApplicationName),Security_Attributes,nil, nil, False,NORMAL_PRIORITY_CLASS, nil, nil,StartUpInfo,ProcessInfo);
  // CreateProcess(pchar('c:\windows\system32\notepad.exe',Security_Attributes,lpProcessAttributes,lpThreadAttributes,nil,nil,FALSE,NORMAL_PRIORITY_CLASS,Nil,Nil,info,pinfo)));
  //WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации
    CloseHandle(ProcessInfo.hThread); // закрываем дескриптор процесса
    CloseHandle(ProcessInfo.hProcess); // закрываем дескриптор потока
  end;

Ругается на 5 строчку([Error] Unit1.pas(44): '(' expected but ',' found) помогите разобратся?

Как объявлены переменные dwCreationFlags, lpApplicationName, Security_Attributes ?

[Bomj]

Сообщение от poli-smen

Как объявлены переменные dwCreationFlags, lpApplicationName, Security_Attributes ?

Код:

function CreateProcess
(lpApplicationName: PChar;
lpCommandLine: PChar;
lpProcessAttributes: TSecurityAttributes;
lpThreadAttributes: TSecurityAttributes;
bInheritHandles: LongBool;
dwCreationFlags: Longword;
lpEnvironment: Pointer;
lpCurrentDirectory: PChar;
lpStartupInfo:TStartupInfo;
lpProcessInformation: TProcessInformation):
 LongBool;

  var
  Rlst: LongBool;
  StartUpInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;

[poli-smen]

Сообщение от Bomj

Код:

function CreateProcess
(lpApplicationName: PChar;
lpCommandLine: PChar;
lpProcessAttributes: TSecurityAttributes;
lpThreadAttributes: TSecurityAttributes;
bInheritHandles: LongBool;
dwCreationFlags: Longword;
lpEnvironment: Pointer;
lpCurrentDirectory: PChar;
lpStartupInfo:TStartupInfo;
lpProcessInformation: TProcessInformation):
 LongBool;

  var
  Rlst: LongBool;
  StartUpInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;

Не вижу я здесь объявление переменных dwCreationFlags, lpApplicationName, Security_Attributes.

[Bomj]

Сообщение от poli-smen

Не вижу я здесь объявление переменных dwCreationFlags, lpApplicationName, Security_Attributes.

Но в самой функции они же обьявлены.

[poli-smen]

Сообщение от Bomj

Но в самой функции они же обьявлены.

В самой функции объявлены не переменные, а формальные параметры и распространяются они только на область внутри этой функции.

[Bomj]

Сообщение от poli-smen

В самой функции объявлены не переменные, а формальные параметры и распространяются они только на область внутри этой функции.

А можно пример?

[poli-smen]

Сообщение от Bomj

А можно пример?

Код:

var
  dwCreationFlags: Longword;
  lpApplicationName: String;
  Security_Attributes: PSecurityAttributes;

[Bomj]

Сообщение от poli-smen

Код:

var
  dwCreationFlags: Longword;
  lpApplicationName: String;
  Security_Attributes: PSecurityAttributes;

Обьявляю по примеру,всё равно ругается на lpApplicationName.

[poli-smen]

Сообщение от Bomj

Обьявляю по примеру,всё равно ругается на lpApplicationName.

Пример использования функции CreateProcess:

Код:

CreateProcess(nil, 'calc.exe', nil, nil, False, NORMAL_PRIORITY_CLASS, nil,  nil, StartUpInfo, ProcessInfo);

[Bomj]

Сообщение от poli-smen

Пример использования функции CreateProcess:

Код:

CreateProcess(nil, 'calc.exe', nil, nil, False, NORMAL_PRIORITY_CLASS, nil,  nil, StartUpInfo, ProcessInfo);

Спасибо!но всё равно ругается,теперь на dwCreationFlags: Longword;

[poli-smen]

Сообщение от Bomj

Спасибо!но всё равно ругается,теперь на dwCreationFlags: Longword;

В каком месте у тебя прописана эта строка?

[M.A.D.M.A.N.]

Заголовок темы оформите нормально, или во флейм полетит.

[Bomj]

Сообщение от poli-smen

В каком месте у тебя прописана эта строка?

Код:

function CreateProcess
(lpApplicationName: PChar;
lpCommandLine: PChar;
lpProcessAttributes: TSecurityAttributes;
lpThreadAttributes: TSecurityAttributes;
bInheritHandles: LongBool;
dwCreationFlags: Longword;
lpEnvironment: Pointer;
lpCurrentDirectory: PChar;
lpStartupInfo:TStartupInfo;
lpProcessInformation: TProcessInformation):
 LongBool;
 var
 StartUpInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  dwCreationFlags: Longword;
  lpApplicationName: String;
  Security_Attributes: PSecurityAttributes;

[M.A.D.M.A.N.]

Сложно зайти в модуль Windows.pas и отуда скопировать аргументы ф-ии?
Пора безусловно такие темы в помойку отправлять.