Проблемы с преобразованием типов

[kta87]

использую функцию:

function GetHardDiskSerial(const DriveLetter: Char): string;

Использование:

GetHardDiskSerial('G')

Функция определяет метку тома, ну в примере тома "G".
Вышеуказанным способом все работает! А вот то что мне действительно нужно:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
 YTom, MET: string;
begin
 YTom:= ComboBox1.Text;
 MET:= GetHardDiskSerial(PChar(YTom));
 Label1.Caption:= 'Метка тома: '+ YTom + ':' + MET;
end;

Но этот код у меня не как не компилируется! Подскажите в чем дело?
П.С. E2010 Incompatible types: 'Char' and 'PWideChar'


Ну все как всегда... пока ждал ответа, сам все сделал! тему можно закрывать! Да, "PChar" нужно заменить на "PWideChar", и получить что то типа:

unction GetHardDiskSerial(const DriveLetter: PWideChar): string;
...
procedure TForm1.ComboBox1Change(Sender: TObject);
var
 YTom, MET: string;
 PChTom: PWideChar;
begin
 YTom:= ComboBox1.Text;
 PChTom:= PWideChar(YTom);
 MET:= GetHardDiskSerial(PChTom);
 Label1.Caption:= 'Метка тома: '+ YTom + ':' + MET;
end;

[Stilet]

Да, "PChar" нужно заменить на "PWideChar"

Или

 MET:= GetHardDiskSerialW(PChar(YTom));

[Пепел Феникса]

вообще то в первом примере надо было просто дать символ функции.

MET:= GetHardDiskSerial(YTom[1])