Сериализация состоит в том, когда объект (блок памяти) переведенный в форме, когда состояние объекта могло быть сохранено в файле (как пример).
Просто обработка это как создание cookie - объект является тестом, cookie - является сериализированным тестом.
Так путем "сериализации" Вас может отправить cookie Вашему другу.
Что-то как этот:-)
Нашел это в архиве группы новостей innosetup:
http://news.jrsoftware.org/news/innosetup/msg76234.html
Я не тестировал.
[Code]
type
TGUID = record
D1: LongWord;
D2: Word;
D3: Word;
D4: array[0..7] of Byte;
end;
function CoCreateGuid(var Guid:TGuid):integer;
external 'CoCreateGuid@ole32.dll stdcall';
function inttohex(l:longword; digits:integer):string;
var hexchars:string;
begin
hexchars:='0123456789ABCDEF';
setlength(result,digits);
while (digits>0) do begin
result[digits]:=hexchars[l mod 16+1];
l:=l div 16;
digits:=digits-1;
end;
end;
function GetGuid(dummy:string):string;
var Guid:TGuid;
begin
if CoCreateGuid(Guid)=0 then begin
result:='{'+IntToHex(Guid.D1,8)+'-'+
IntToHex(Guid.D2,4)+'-'+
IntToHex(Guid.D3,4)+'-'+
IntToHex(Guid.D4[0],2)+IntToHex(Guid.D4[1],2)+'-'+
IntToHex(Guid.D4[2],2)+IntToHex(Guid.D4[3],2)+
IntToHex(Guid.D4[4],2)+IntToHex(Guid.D4[5],2)+
IntToHex(Guid.D4[6],2)+IntToHex(Guid.D4[7],2)+
'}';
end else
result:='{00000000-0000-0000-0000-000000000000}';
end;
function InitializeSetup(): Boolean;
begin
MsgBox(GetGuid(''), mbInformation, MB_OK);
Result := False;
end;
You can do this by calling the Windows API function CoCreateGuid (in "OLE32.dll"), which you declare inside a [Code] section in your script. Sorry, I haven't used Inno Setup in awhile so I don't know exactly how to do this. To help, here's a sample API declaration for the GetWindow() function:
Function GetWindow (HWND: Longint; uCmd: cardinal): Longint;
external 'GetWindow@user32.dll stdcall';
And here's a link to a VB sample for using CoCreateGuid:
http://support.microsoft.com/kb/176790
Somewhere in all of this is your answer.