| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
как проеобразовать string к pwidechar [D5, NT4, WinXP]
user51 © (2005-08-23 11:56:00)Имею кусок кода который устанвливает обои
в примере имя обоев задается напрямую
а как сделать чтобы можно было передавать через стринг
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;
DarkGuru (2005-08-23 12:55:00) [1]pWideChar(WideString(pss))
Fay (2005-08-23 12:23:00) [2]MultiByteToWideChar ?
| |
