Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.25;
Скачать: CL | DM;

Вниз

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

 
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 вся ветка

Текущий архив: 2007.11.25;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.108 c
2-1193939277
Dark
2007-11-01 20:47
2007.11.25
Фон рабочего стола


2-1194234562
AlexanderMS
2007-11-05 06:49
2007.11.25
Сколько байт достаточно для хранения длины строки?


6-1174982246
skye
2007-03-27 11:57
2007.11.25
Game Monitor


15-1192809768
Ekzot
2007-10-19 20:02
2007.11.25
Замена пробелов в командной строке


2-1193827989
F@T@L_Err0r
2007-10-31 13:53
2007.11.25
Скопировать папку





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский