Форум: "Media";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Вниз

Обои   Найти похожие ветки 

← →
Manur   (2007-06-14 16:37) [0]

Здраствуйте.
У меня вот проблема
надыбал исходник процедуры меняющей обои
procedure   ChangeActiveWallpaper(s:pwidechar);
begin ....
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s1:string;
begin
 s1:=FileListBox1.FileName;
 ChangeActiveWallpaper(s1); <- вот тут то и начинается
end;
пробовал писать @s1, @s1[1] не помогает
что посоветуете ?

---

← →
grisme ©   (2007-06-14 17:56) [1]

PChar(s)?

---

← →
Manur   (2007-06-15 06:51) [2]

это я уже пробовал делать
не совпадение типов

---

← →
grisme ©   (2007-06-15 08:49) [3]

ну прямо таки PWideChar(s) попробуй :o)

---

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

Форум: "Media";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.109 c