String и PAnsiChar

[nls]

Нужно при запуске программы извлечь dll из ресурсов во временный каталог и проинжектить в другой процесс. Для извлечения dll из ресурсов используется ф-я ExtractRes(), для получения временного каталога - GetEnvironmentVariable('TEMP');. Ф-я возвращает значение типа String.

Инжект осуществляет вот эта ф-я (прошу обратить внимание на 2-й параметр) :

procedure InjectDll(TargetId: cardinal; DllName: PAnsiChar);
var
  BytesWrite    : cardinal;
  ParamAddr     : pointer;
  pThreadStart  : pointer;
  Hdl           : cardinal;
  hThread       : cardinal;
  hRemoteThread : Cardinal;
begin
  ChangePrivilege('SeDebugPrivilege', True);
  Hdl := OpenProcess(PROCESS_ALL_ACCESS, false, TargetId);
  ParamAddr := VirtualAllocEx(Hdl, nil, Length(DllName), MEM_COMMIT or MEM_RESERVE,PAGE_EXECUTE_READWRITE);
  WriteProcessMemory(Hdl,  ParamAddr, PAnsichar(DllName), Length(DllName), BytesWrite);
  pThreadStart := GetProcAddress(GetModuleHandle('KERNEL32.DLL'), PAnsiChar('LoadLibraryA'));
  hThread  := CreateRemoteThread(Hdl, nil, 0, pThreadStart, ParamAddr, 0,hRemoteThread);
  WaitForSingleObject(hThread, INFINITE);
  CloseHandle(hThread);
end;

В обработчике OnCreate() прописываю:

//var
   //Temp: String; Temp - глобальная переменная.
begin
   Temp := GetEnvironmentVariable('TEMP');
   ExtractRes('CUSTOM', 'DLL', Temp+'/mssxs64.dll');
end

Dll успешно извлекается во временный каталог. Теперь мне нужно передать этот путь во 2-й параметр ф-и InjectDll.
Делаю вот так:

 
Temp := GetEnvironmentVariable('TEMP');
InjectDll(pID, Temp+'/mssxs32.dll');

Но т.к. 2-й параметр ф-и InjectDll должен быть как PAnsiChar, а у меня он получается как String, компилятор выдает ошибку:

E2010 Incompatible types: 'string' and 'PAnsiChar'

Пробовал перевести в PAnsiChar вот таким вызовом:

InjectDll(pID, (PChar(Temp+'/mssxs32.dll')));

Но компилятор почему-то опять ругаеццо:

Incompatible types: 'Char' and 'AnsiChar'

Как можно этот String привести к PAnsiChar, чтобы компилятор не ругался и ф-я InjectDll() смогла понять этот путь?

[veniside]

в 2009 и выше PChar соответсвует PWideChar

[nls]

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

в 2009 и выше PChar соответсвует PWideChar

InjectDll(pID, (PWideChar(Temp+'/mssxs32.dll')));

То же самое:

Incompatible types: 'Char' and 'AnsiChar'

[veniside]

ну так надо же

InjectDll(pID, (PAnsiChar(Temp+'/mssxs32.dll')));

хотя лучше везде перейти на юникод

[nls]

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

ну так надо же

InjectDll(pID, (PAnsiChar(Temp+'/mssxs32.dll')));

хотя лучше везде перейти на юникод

Попробовал. Компилируется успешно, но инжект не проходит. Я вообще на раннем этапе указывал этот путь напрямую. Вот так:

InjectDll(pID, 'C:/mssxs64.dll');

И это отлично работает. Может можно ещё как-то получить путь к временной папке (так, чтобы не пришлось делать преобразование)?

[veniside]

ExtractRes('CUSTOM', 'DLL', Temp+'/mssxs64.dll');

тут у вас 64

InjectDll(pID, (PAnsiChar(Temp+'/mssxs32.dll')));

тут уже 32

InjectDll(pID, 'C:/mssxs64.dll');

тут опять 64

[nls]

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

ExtractRes('CUSTOM', 'DLL', Temp+'/mssxs64.dll');

тут у вас 64

InjectDll(pID, (PAnsiChar(Temp+'/mssxs32.dll')));

тут уже 32

InjectDll(pID, 'C:/mssxs64.dll');

тут опять 64

Поправил, но всё равно без результата. Просто тупо не инжектит.

[grafgrial]

nls ну есть еще способ получить путь к временной папке
http://www.delphilab.ru/content/view/160/85

[nls]

Не ну ппц полный. Злость через край лезет. Я просто не знаю что нужно этому компилятору. У кого есть время, гляньте плиз проект (delphi 2010). Там минимум кода. При успешном инжекте должен высветиться MessageBox(). Плиз.

[Пепел Феникса]

вам надо писать так:

PAnsiChar(AnsiString(Temp+'путь'))