Получить текст из StringTables в UNICODE

Раздел посвящен программированию с использованием Power Basic.
SLUTER
Новичок
Новичок
 
Сообщения: 49
Зарегистрирован: 06.06.2010 (Вс) 18:26

Получить текст из StringTables в UNICODE

Сообщение SLUTER » 02.01.2011 (Вс) 19:06

не могу получить текст из ресурса. точнее получаю буковки только до первого пробела.

код
Код: Выделить всё
#COMPILE EXE
#DIM ALL

#INCLUDE ONCE "Win32API.inc"
#RESOURCE "Resources.PBR"

DECLARE FUNCTION LoadStringUnicode LIB "USER32.DLL" ALIAS "LoadStringW" (BYVAL hInstance AS DWORD, BYVAL uID AS DWORD, lpBuffer AS ASCIIZ, BYVAL nBufferMax AS LONG) AS DWORD
DECLARE FUNCTION MessageBoxUnicode LIB "USER32.DLL" ALIAS "MessageBoxW" (BYVAL hWnd AS DWORD, lpText AS ASCIIZ, lpCaption AS ASCIIZ, BYVAL dwType AS DWORD) AS LONG
DECLARE FUNCTION MessageBoxN LIB "USER32.DLL" ALIAS "MessageBoxA" (BYVAL hWnd AS DWORD, lpText AS ASCIIZ, lpCaption AS ASCIIZ, BYVAL dwType AS DWORD) AS LONG

FUNCTION PBMAIN () AS LONG
    MessageBoxUnicode %HWND_DESKTOP, GetString(2)+"   ", GetString(1)+"   ", %MB_OK ' NOT OK
END FUNCTION


FUNCTION GetString(BYVAL Nr AS LONG) AS STRING
    LOCAL zT AS ASCIIZ * 4096
    LOCAL x AS STRING
    LoadStringUnicode GetModuleHandle(BYVAL 0), Nr, zT, SIZEOF(zT)
    FUNCTION = zT
END FUNCTION


ресурс
Код: Выделить всё
#include "resource.h"

STRINGTABLE LOADONCALL MOVEABLE
LANGUAGE LANG_RUSSIAN, 0x1
BEGIN
    0x0001, "Заголовок сообщения"
    0x0002, "Текст сообщения"
END


в юникоде получаю только "заголовок" и "текст". в чём мой косяк?

SLUTER
Новичок
Новичок
 
Сообщения: 49
Зарегистрирован: 06.06.2010 (Вс) 18:26

Re: Получить текст из StringTables в UNICODE

Сообщение SLUTER » 03.01.2011 (Пн) 0:40

закрыто. на буржуйском форуме исправили.


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 42

    TopList