Code:

{ **** UBPFD *********** by kladovka.net.ru ****

>> Конвертация String в PWideChar

Зависимости: ???

Автор: Gua, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., ICQ:141585495, Simferopol

Copyright: Andre .v.d. Merwe

Дата: 18 июля 2002 г.

********************************************** }

function StringToPWide( sStr: string; var iNewSize: integer ): PWideChar;

var

pw : PWideChar;

iSize : integer;

begin

iSize := Length( sStr ) + 1;

iNewSize := iSize * 2;

pw := AllocMem( iNewSize );

MultiByteToWideChar( CP_ACP, 0, PChar(sStr), iSize, pw, iNewSize );

Result := pw;

end;

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

iSize: integer;

begin

ChangeWallpaper(StringToPWide('C:\1.jpg',iSize));

end;