| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

String and PWideChar

Alek_1 ©   (2006-07-20 17:04:00) 

Привет, пробую сменить обоину у рабочего стола с помощью вот этой процедурки :) и немного не получается :(.

procedure ChangeActiveWallpaper(name: string);
const
 CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
 ActiveDesktop: IActiveDesktop;
 s: PWideChar;

begin
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 s:=PWideChar(StringReplace(name,'\','\\',[rfReplaceAll]));
 ActiveDesktop.SetWallpaper(s, 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

В чем может быть проблемкка? :)
НАсоклько я понимаю тут что-то с преобразованием со string в pWideChar

---

Alek_1   (2006-07-20 18:16:00) [1]

2 Lamer@fools.ua: работает :) спасибо :)

---

Lamer@fools.ua   (2006-07-20 17:51:00) [2]

procedure ChangeActiveWallpaper(name: string);
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
s: WideString;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
s:=WideString(StringReplace(name,'\','\\',[rfReplaceAll]));
ActiveDesktop.SetWallpaper(PWideChar(s), 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

?

---

tesseract   (2006-07-20 17:36:00) [3]

> Alek_1   (20.07.06 17:34) [3]


ещё бы  должен быть PWideChar - туда строка пойдёт.

---

Alek_1   (2006-07-20 17:34:00) [4]

написал вот такое

procedure ChangeActiveWallpaper(name: string);
const
 CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
 ActiveDesktop: IActiveDesktop;
 wideChars : array of WideChar;
 s: PWideChar;
begin
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 SetLength(wideChars,Length(name));
 s:=StringToWideChar(StringReplace(name,'\','\\',[rfReplaceAll]), wideChars, Length(name)+1);
 ActiveDesktop.SetWallpaper(s, 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

и ругается на несоответствие типов Array and WideChar

---

tesseract   (2006-07-20 17:34:00) [5]

Dest - переменная копировать данные,
DestSize - размер переменной.

Getmem(dest,length(name))
 
StringToWideChar(name, Dest,length(name)):

---

Alek_1   (2006-07-20 17:22:00) [6]

хм, а как им пользоваться? :)
первый параметр понятен, а остальные два?

---

tesseract   (2006-07-20 17:12:00) [7]

Используй :
function StringToWideChar(const Source: string; Dest: PWideChar; DestSize: Integer): PWideChar;

---

Наверх