как проеобразовать string к pwidechar

← →
user51 (2005-08-23 11:56) [0]

Имею кусок кода который устанвливает обои
в примере имя обоев задается напрямую
а как сделать чтобы можно было передавать через стринг
uses
ComObj, ShlObj;

procedure ChangeActiveWallpaper(ss:string);
const
CLSID_ActiveDesktop: TGUID = "{75048700-EF1F-11D0-9888-006097DEACF9}";

var
ActiveDesktop: IActiveDesktop;

begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;

ActiveDesktop.SetWallpaper("c:\windows\forest.bmp",0);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
было так хочу так
здесь код который преобразует ss в pss (pwidechar)

ActiveDesktop.SetWallpaper(pss,0);
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
pss получается из стринга ss который передается в параметрах
процедуры

ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

end;

← →
Fay © (2005-08-23 12:23) [1]

MultiByteToWideChar ?

← →
DarkGuru (2005-08-23 12:55) [2]

pWideChar(WideString(pss))

как проеобразовать string к pwidechar Найти похожие ветки