String --> PWideChar

Previous  Top  Next

    
 

 

Code:

 

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

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

 

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

Автор:       Gua, gua@ukr.net, 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;

 

 

©Drkb::00176