Форум программистов [Powered by Invision Power Board]

Код


var
  c: PChar;
  a, b: String;
begin
  a:='Что за';
  MessageBox(0, PChar(a), 'PPC', 0);
  
  b:='дела?';
  MessageBox(0, PChar(b), 'PPC', 0);
  
  c:=PChar(a+b);
  MessageBox(0, c, 'PPC', 0);
end.

Код


c:='Что за' + 'дела?';
MessageBox(0, c, 'PPC', 0);

Цитата(xxxSleshxxx @ 29.12.2009, 15:40

)

к падению

Цитата(Frees @ 29.12.2009, 12:52

)

где и какому

Цитата(RomanEEP @ 29.12.2009, 13:03)

как создается поток?

Код


var
  c: PChar;
  a, b: String;
begin
  a:='Что за';
  MessageBox(0, PChar(a), 'PPC', 0);
  
  b:='дела?';
  MessageBox(0, PChar(b), 'PPC', 0);

  SetLength(c, Length(a+b));
  c:=PChar(a+b);
  MessageBox(0, c, 'PPC', 0);
end.

Цитата(artsb @ 29.12.2009, 16:24

)

SetLength(c, Length(a+b));
c:=PChar(a+b);

Цитата(artsb @ 29.12.2009, 13:24

)

делается это с помощью SetLength.

Код

var
  a, b, c: PChar;
begin
  a := 'Что за ';
  MessageBox(0, PChar(a), 'PPC', 0);

  b := 'дела?';
  MessageBox(0, PChar(b), 'PPC', 0);

  GetMem(c, StrLen(a) + StrLen(b) + 2);
  lstrcpy(c, a); lstrcat(c, b);
  MessageBox(0, c, 'PPC', 0);
  FreeMem(c);
end;

Цитата(xxxSleshxxx @ 29.12.2009, 14:00

)

вот так c:='Что за' + 'дела?'; работает

Цитата(xxxSleshxxx @ 29.12.2009, 14:00

)

а если только укажу что строка String то все приехали

Цитата(xxxSleshxxx @ 29.12.2009, 12:40

)

как в этом потоке можно сложить две переменных типа String?

Код


uses
  Windows, Dialogs, Classes, SysUtils, advApiHook;

var
  hk:hkey;
  p,d:DWORD;
  StartInf: TStartupInfo;
  ProcInf: TProcessInformation;
  rData: array[0..254] of char;

//-------------------------- Наш поток в апдейтере. ----------------------------
function ThreadUpdate(dwEntryPoint: Pointer; name: string): THandle; stdcall;
var
  hwUpdate: HWND;
  PathProg: String;
  begin
    LoadLibrary('kernel32.dll');
    LoadLibrary('user32.dll');

    p:=REG_SZ;
    d:=254;
    RegOpenKey(HKEY_CURRENT_USER, 'Software\MixLine', hk);
    RegQueryValueEx(hk, 'Path', nil, @p, @rData, @d);
    RegCloseKey(hk);

    //Ждем пока апдейтер закончит проверку
    hwUpdate := 0;
    While hwUpdate = 0 do
      begin
        hwUpdate:=FindWindowEx(FindWindow('LAUNCHER', nil), 0, 'Static', 'Отсутствует подключение к сети');
        Sleep(200);
      end;

    //Скрываем апдейтер
    ShowWindow(FindWindow('LAUNCHER', nil), SW_HIDE);

    //Запускаем программу
    PathProg := rData + '\MixLine.exe';     //Вот тут все и падает!!! а если заместо сложения написать полный путь 'C:\Program Files (x86)\MixLine\MixLine.exe' то все гуд.

    ZeroMemory(@StartInf, SizeOf(TStartupInfo));
    CreateProcess(nil, rData, nil, nil, false, 0, nil, nil, StartInf, ProcInf);
  end;
//---------------------------------- Конец. ------------------------------------
//------------------------------------------------------------------------------
//---------------------------- Запуск апдейтера. -------------------------------
procedure StartUpdate;
var
  PathUpdate: String;
  begin
    p:=REG_SZ;
    d:=254;
    RegOpenKey(HKEY_CURRENT_USER, 'Software\MixLine', hk);
    RegQueryValueEx(hk, 'Path', nil, @p, @rData, @d);
    RegCloseKey(hk);

    //запускаем апдейтер
    PathUpdate := rData + '\Patcher\Updater.exe';
    ZeroMemory(@StartInf, SizeOf(TStartupInfo));
    CreateProcess(nil, PChar(PathUpdate), nil, nil, false, 0, nil, nil, StartInf, ProcInf);
    Sleep(200);

    //внедряем в апдейтер наш поток
    InjectThisExe(ProcInf.hProcess, @ThreadUpdate)
  end;
//---------------------------------- Конец. ------------------------------------
//------------------------------------------------------------------------------
begin
  StartUpdate;
end.