Еще раз о серийном номере hdd

[SarahConner]

getvolumeinformation(pathname, nil, MAX_PATH+1, @serial, maxpath, sysflags, sizebuf, sizeof(sizebuf));
label2.caption:=inttohex(hiword(ser ial), 4) + '-' + inttohex(loword(serial), 4)
end;

Добрый вечер,
код работает, но
будте добры, объясните, почему в строке:
label2.caption:=inttohex(hiword(ser ial), 4) + '-' + inttohex(loword(serial), 4)
не ставится в конце ";"
и как то, что отображается в label2.caption присвоить символьной переменной.

Спасибо всем участвующим.

[spamer]

будте добры, объясните, почему в строке:
label2.caption:=inttohex(hiword(ser ial), 4) + '-' + inttohex(loword(serial), 4)
не ставится в конце ";"

Т.к. эта строка стоит перед End .

и как то, что отображается в label2.caption присвоить символьной переменной.

Если надо перевести String в PChar, то вот:

var
c: PChar;
s: String;

c:=PChar(s);

[SarahConner]

Спасибо. Разобралась.