Как правильно выделить буфер для приёма строки от WinApi функции

[c0mp]

Мне нужно получить заголовок окна, зная его хэндл. Я нашёл функцию:

int WINAPI GetWindowText(
  __in   HWND hWnd,
  __out  LPTSTR lpString,
  __in   int nMaxCount
);

Т.е lpString - это указатель на буфер, в который скопируется заголовок окна. Я решил, что сначала нужно определить длину заголовка, а потом зная длину выделить буфер (GetMem'ом). Вот эта функция:

int WINAPI GetWindowTextLength(
  __in  HWND hWnd
);

Но она возвращает длину заголовка окна в символах.

the return value is the length, in characters, of the text

А в GetMem, как я понимаю, нужно передавать размер в байтах.
Собственно вопрос, как правильно выделить память? (Точнее, как узнать сколько её нужно выделить). Если можно, приведите пожалуйста пример.

[Somebody]

Ну так прибавь 1 (под нулевой символ) и умножь на размер символа.

[c0mp]

Так правильно?

function GetWindowCaption(Handle: HWND): String;
var
  buf: PChar;
  bufSize: Integer;
  WindowTextLength: Integer;
begin
  WindowTextLength := GetWindowTextLength(Handle);
  if GetLastError <> 0 then begin ShowMessage('Ошибка'); Exit; end;
  bufSize := (WindowTextLength * SizeOf(Char)) + 1;
  GetMem(buf, bufSize);
  try
    GetWindowText(Handle, buf, WindowTextLength + 1);
    if GetLastError <> 0 then begin ShowMessage('Ошибка'); Exit; end;
    Result := String(buf);
  finally
    FreeMem(buf, bufSize);
  end;
end;

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

function GetWindowCaption(Handle: HWND): String;
begin
  SetLength(Result,GetWindowTextLength(Handle));
  SetLength(Result,GetWindowText(Handle,@Result[1],Length(Result));
end;

достаточно.

[c0mp]

Пепел Феникса, обрезается последний символ.

[c0mp]

Может так:

function GetWindowCaption(Handle: HWND): String;
begin
  SetLength(Result,GetWindowTextLength(Handle)+1);
  SetLength(Result,GetWindowText(Handle,@Result[1],Length(Result)));
end;

?

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

function GetWindowCaption(Handle: HWND): String;
begin
  SetLength(Result,GetWindowTextLength(Handle));
  SetLength(Result,GetWindowText(Handle,@Result[1],Length(Result)+1));
end;

прошу прощения, вот так надо.

[GunSmoker]

Чуть корректнее будет так:

function GetWindowCaption(Handle: HWND): String;
begin
  SetLength(Result, GetWindowTextLength(Handle) + 1);
  SetLength(Result, GetWindowText(Handle, PChar(Result), Length(Result)));
end;

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

GunSmoker, нет, Делфи строки хранятся как нуль терминированные, и нет нужды вносить терминал в саму строку.

[GunSmoker]

Так я и не говорил, что твой код не будет работать.