Скачать: CL | DM;

как проеобразовать 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))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.033 c