procedure TForm1.Btn1Click(Sender: TObject);
var
    AppName : Array [0..256] of Char;    //节名称字符串
    KeyName : Array [0..256] of Char; //键名称字符串
    DefaultString : Array [0..256] of Char; //在键名没找到时默认返回的字串
    ReturnedString : Array [0..256] of Char; //在键名找到时返回的字串
begin
    AppName := 'Windows';//节名称
    KeyName := 'device';    //键名称
    GetProfileString(AppName,KeyName,DefaultString,ReturnedString,Sizeof(ReturnedString));
    ShowMessage(ReturnedString);
end;