[NumLock]

Код:

procedure WriteLog(s: String);
var
  hFile: THandle;
  Dummy: Cardinal;
begin
  hFile:=CreateFile('ShazamID.log', GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0);
  if hFile<>INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hFile, 0, nil, FILE_END);
    s:=DateTimeToStr(Now)+': '+s+#13#10;
    WriteFile(hFile, PChar(s)^, Length(s), Dummy, nil);
    CloseHandle(hFile);
  end;
end;