[EgOrus]

DenchikK
сильно в задачу и скрипт не вникал
если без всяких выкрутасов, попростому, то извлечь можно вот так:

Код:

var
   cfgfile: TArrayOfString;
   skin: String;
begin
   LoadStringsFromFile('C:\Program Files\QIP\Skins\current.cfg', cfgfile);
   // пеерменная skin и есть название твоего скина используй её при указании путей
   skin := cfgfile[0];
   // для отладки выводит значение переменной skin
   MsgBox( skin, mbInformation, MB_OK );
end;