再次感謝諾基亞論壇的 beover1984 提供幫助！

【參考文章】：http://www.symbian.net.cn/blog/post/5.html

聲明：雖然上面的【參考文章】標(biāo)題是 Use HookLogger to trace memroy leak in S60 3rd SDK ，但 S60 第二版也適用！

需要說明的是 EPOCROOT 是在 Windows 系統(tǒng)變量中改的且前后都要有“/”(不是 Windows 下用的“\”)

也可以不用系統(tǒng)變量而直接使用下面的 perl 代碼 替換 HookEUSER.pl 的內(nèi)容 , 并把第53行改為你的 SDK 路徑（注意無盤符）：

 1# HookEUSER.pl
 2
 3use strict;
 4use FindBin qw($Bin);
 5
 6my $badArg = 0;
 7my $remove = 0;
 8my $platform;
 9my $release = "UDEB";
10my $arch;
11if($#ARGV >= 0)
12{
13    my $arg = 0;
14    if($ARGV[0] =~ m!^[-/]r$!i)
15    {
16        $remove = 1;
17        ++$arg;
18    }
19    if($#ARGV >= $arg && $ARGV[$arg] =~ /^wins(cw)?$/i)
20      {
21           $platform = $ARGV[$arg];
22           $arch = ($platform =~ /^wins$/i)? "eka1": "eka2";
23          ++$arg;
24    }
25    while($#ARGV >= $arg && $ARGV[$arg] =~ /^(udeb|urel|eka1|eka2)$/i)
26      {
27          if($ARGV[$arg] =~ /^(udeb|urel)$/i)
28          {
29               $release = $ARGV[$arg];
30        }
31        else
32        {
33            $arch = $ARGV[$arg];
34        }
35
36          ++$arg;
37    }
38    $badArg = ($#ARGV >= $arg);
39}
40
41if($badArg || !defined($platform))
42{
43    print <<USAGE_EOF;
44usage: HookEUSER.pl [-r] <PLATFORM> [RELEASE] [ARCH]
45where: <PLATFORM> == WINS | WINSCW
46       [RELEASE]  == UDEB | UREL (default == UDEB)
47       [ARCH]     == EKA1 | EKA2 (default == EKA1 for WINS, EKA2 for WINSCW)
48       -r restores original EUSER.DLL
49USAGE_EOF
50    exit(0);
51}
52
53my $path = "/Symbian/8.0a/S60_2nd_FP2_SC/epoc32/release/wins/udeb";
54chdir($path) or die "Failed setting cwd to $path";
55my $euser = "euser.dll";
56my $euser_orig = "euser.orig.dll";
57my $hooks = "EUserParasite_$arch.dll";
58my $hooks_src = "$Bin/$hooks";
59die "Can't find \"$hooks_src\"" unless -e $hooks_src;
60print "Target path is $path\n";
61die "Can't find \"$euser\" - wrong drive, arguments, or EPOCROOT env var?" unless -e $euser;
62if($remove)
63{
64    die "Can't find \"$euser_orig\" - was EUSER.DLL hooked by this script?" unless -e $euser_orig;
65    unlink $euser or die "Can't delete hooked EUSER.DLL - is emulator (etc) running?";
66    rename($euser_orig, $euser) or die "Failed renaming $euser_orig to $euser";
67    print "Restored $euser from $euser_orig; hooks no longer in place\n";
68}
69else
70{
71    die "\"$euser_orig\" present - has EUSER.DLL already been hooked?" if -e $euser_orig;
72    my $hooked_euser = "$euser.HOOKED";
73    unlink $hooked_euser;    # earlier attempt may have died with "in use", etc
74    my $cmd = "copy \"$hooks_src\"";
75    $cmd =~ tr-/-\\-;
76    system($cmd) == 0 or die "Failed running \"$cmd\"";
77    $cmd = "\"$Bin/AttachDll\" $euser $hooks $hooked_euser";
78    system($cmd) == 0 or die "Failed running \"$cmd\"";
79    rename $euser, $euser_orig or die "Failed renaming $euser to $euser_orig - is emulator (etc) running?";
80    rename $hooked_euser, $euser or die "Failed renaming $hooked_euser to $euser";
81    print "Modified $euser to hook $hooks, original is $euser_orig.\nRun HookEUSER with -r to restore\n";
82}
83

這樣你只要安裝完 HookLogger 并按照上面的方法更新 HookEUSER.pl，再按照【參考文章】運(yùn)行程序就行了。
程序的使用很簡(jiǎn)單，這里不再贅述。
定位到內(nèi)存泄露的地方后剩下的事就交給你了~~