[Bargest]

40 чатлов.

[serega6531]

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

40 чатлов.

Что? Какие чатлы?

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

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

Что? Какие чатлы?

Одна КЦ - 4400 чатлов.
З.Ы. Эх, молодежь)))

[serega6531]

Сообщение от M.A.D.M.A.N.

Одна КЦ - 4400 чатлов.
З.Ы. Эх, молодежь)))

КЦ — вещество, содержащееся в спичечной головке бытовых спичек, находящихся в обиходе землян (на Плюке огонь добывают с помощью огнива). КЦ, соскобленное с одной спички, стоит приблизительно 4400 чатлов. Обладание КЦ сильно повышает социальный статус: обладающий одним КЦ чатланин имеет право носить жёлтые штаны, а обладающий несколькими (вероятно, четырьмя и более) — малиновые.

И что? Причём тут CreateProcess?

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

Да притом, что заколебал глупыми вопросами всех))) вот тебе и написали, мол за 40 чатлов сделают))
Все ж уже расписали.

[serega6531]

Сообщение от M.A.D.M.A.N.

Да притом, что заколебал глупыми вопросами всех))) вот тебе и написали, мол за 40 чатлов сделают))
Все ж уже расписали.

А можно просто готовый код? Пожалуйста.

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

Дак я ж выкладывал.

И да, если надо готовый код - го в раздел "код на шару", там есть вероятность 1/70 получить готовый код, или в раздел работа, но придется раскошелиться.

Так же есть вариант пытаться разбираться самому, но из этой темы можно сделать вывод, что вам не больно то этого хочется.

А так большинству форумчан в буй не упиралось за кого-то что-то писать.

[serega6531]

Сообщение от M.A.D.M.A.N.

Дак я ж выкладывал.

Вместе с CreateProcess и нужными параметрами?

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

Ну как бы да.

[serega6531]

Сообщение от M.A.D.M.A.N.

Ну как бы да.

А можно ещё раз?

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

Можно:

Код:

//==============================================================================
function RunMyAppHidden(my_app : string; my_wait : bool) : bool; // по идее можно в процедуру переписать
  var
    si : TStartupInfo;
    pi : TProcessInformation;
  begin
    Result := false;
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOWNORMAL;  // <--- обрати внимание на этот флаг
      if CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi)=true then Result := true;
      try CloseHandle(pi.hThread); except ; end;
      if my_wait = true then WaitForSingleObject(pi.hProcess, INFINITE);
      try CloseHandle(pi.hProcess); except ; end;
    except
      Result := false;;
    end;
  end;
//==============================================================================

[serega6531]

Сообщение от M.A.D.M.A.N.

Можно:

Код:

//==============================================================================
function RunMyAppHidden(my_app : string; my_wait : bool) : bool; // по идее можно в процедуру переписать
  var
    si : TStartupInfo;
    pi : TProcessInformation;
  begin
    Result := false;
    try
      ZeroMemory(@si,SizeOf(si));
      si.cb := SizeOf(si);
      si.dwFlags := STARTF_USESHOWWINDOW;
      si.wShowWindow := SW_SHOWNORMAL;  // <--- обрати внимание на этот флаг
      if CreateProcess(nil,PChar(my_app),nil,nil,False,0,nil,nil,si,pi)=true then Result := true;
      try CloseHandle(pi.hThread); except ; end;
      if my_wait = true then WaitForSingleObject(pi.hProcess, INFINITE);
      try CloseHandle(pi.hProcess); except ; end;
    except
      Result := false;;
    end;
  end;
//==============================================================================

А как его переделать, чтобы он просто запускал программу, без скрытности? И как передавать Launch?

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

Я за тебя уже написал туда SW_SHOWNORMAL;

З.Ы. Теперь я понимаю, что чувствуют преподы в универе.

[serega6531]

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

И как передавать Launch?

В каком параметре?

[Mrak]

Сообщение от M.A.D.M.A.N.

Я за тебя уже написал туда SW_SHOWNORMAL;

З.Ы. Теперь я понимаю, что чувствуют преподы в универе.

аээ! спасыба учытэл!