Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

Поменять обои рабочего стола   Найти похожие ветки 

 
allucard   (2007-05-15 11:52) [0]

ДОброго дня.

Есть код на С, помогите перевести:

#include "stdafx.h"
#include "windows.h"
#include "iostream.h"

void main()
{
char filename[10];
strcpy(filename,"1.bmp");
if (SystemParametersInfo(SPI_SETDESKWALLPAPER,0,
 &filename,SPIF_SENDWININICHANGE)==TRUE)
{
 cout << "Ok change" << endl;
}
else
 cout << "Error change" << endl;
}


Вот моя не рабочая версия:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
Label1.Caption := inttostr(GetDesktopWindow);
s:=  "C:\1.bmp";
if SystemParametersInfo(SPI_SETDESKWALLPAPER,0, @s, SPIF_SENDWININICHANGE)
 then ShowMessage("Ok")
   else ShowMessage("Error");
end;


Спасибо.


 
clickmaker ©   (2007-05-15 12:09) [1]

Pchar(s) или @s[1]


 
allucard   (2007-05-15 12:25) [2]

Спасиб.
А что это значит?

Как я полагаю в Windows другая кодировка.

Но что на самом деле произойдёт с этим стрингом?


 
clickmaker ©   (2007-05-15 12:38) [3]

причем тут кодировка Windows? просто адрес строки


 
allucard   (2007-05-15 12:45) [4]

угу



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

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

Наверх




Память: 0.44 MB
Время: 0.046 c
2-1193841083
Tonich
2007-10-31 17:31
2007.11.25
Фильтр


15-1193144154
Dennis I. Komarov
2007-10-23 16:55
2007.11.25
Интересно, сколько сейчас выживших (зарегистрированных) после


2-1193993515
vl
2007-11-02 11:51
2007.11.25
Добавление данных в таблицу


4-1179215547
allucard
2007-05-15 11:52
2007.11.25
Поменять обои рабочего стола


15-1193231407
Pweq
2007-10-24 17:10
2007.11.25
Как вычислить arccos через arctan?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский